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1.0 ABSTRACT 


2.0 


NM 


This program allows the user check-out or debug the KWVI1IA, 
Programmable Real-Time Clock. The logic test is self contained 
and needs no external maintenance hardware or operator 
intervention with only one exception: If the customer hardware 
connected to the KWV11 could inject signals on ST2, ST1, or 
SLAVE IN inputs, it must be disconnected. 


Even though the KWV11 is a Q BUS option, this program was 
designed to run on any PDP-11 Family computer. If the user is 
unfamilar with an LSI-11 he should review sections 8.4 and 8.5. 
A software switch register is included with this program. 


Every effort was made to make this program conform to LSI-11 


tye restrictions, however; the user should read sections 
-2 an » * 


REQUIREMENTS 


Equipmert 


1. PDP=-11 Family computer with 8K of memory (or more) and I/0 
facilities (i.e.,:-TTY). 


+ 


c. KWV11 under test. 


Storage 


This program occupies and uses 8K of memory. 


SEQ 0003 
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3.0 LOADING PROCEDURE 


Method 

Standards procedure for normal binary tapes should ve followed. 
1. Absolute loader must be in memory. 

2. Place binary tape in reader. 

3. Type Address *7500 (5* determine by location of loader). 

4. Type 'G'' (program. will be loaded into memory). 


Tne program can also be loaded by XXDP, ACT, or APT. 


Non--Standard Address, Vector, or Use of Software Switch Register 


This program is set to test a KWV11 with a standard address and 
vector. If any of these are different on the KW11K you are 
testing, change the corresponding location in memory before 
starting this test. 


CURRENT 
LOCATION TAG CONTENTS COMMENTS 
1250 $BASE : 170420 ;;BASE ADDRESS OF EQUIPMENT 
33 UNDER TEST 
1244 $VECT1: 000440 32 INTERRUPT VECTOR #1 
176 $SWREG: 000000 7 zMANUAL SWR. 
1157 STPFLG: -BYTE 0 i2'"TERMINAL AVAILABLE’ 


i: FLAG (BIT<0:7>=0=YES) 


SEQ 0004 
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STARTING PROCEDURE 


Controi Switch Setting 


Before starting the  dapckics set all switch register bits as 
desired, see section 5.7. 


Starting Addresses 


Start of Logic Tests | 
Restart Address for Logic Test 
1/0 Signal Test #1 

1/0 Signal Test #2 

1/0 Signal Test #3 

Production Starting Address 
Testor Starting Address 


Program and/or Operator Action 


Al! 


switches in switch pack 2 should be in the ‘OFF'' position 
except when instructed. 


Load program into memory. 


Enter keyboard ‘ODT"’. 


Alter location ‘S$SWREG'’ (Address 176) to reflect desired. 


options of a switch register - see section 5.7. 


Type starting address, followed by "'G'' to start program, 


SEQ 0005 


5.0 OPERATING PROCEDURE 


S 


21 





Switch Register Function 


SWR BIT OCTAL FUNCTION WHEN SET 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUT 

ENABLE LINE FREQ. RATE TESTING 
INHIBIT ITERATIONS (SHORT PASS) 
BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR <7:0> 


oo—- 4 + a 
DBOOH-MWEMN 


Scope Loops 


If an error occurs and the user wishes to scope the error, 
“SSWREG'' should be altered to ‘1000C0"' at the start of the test 
to halt on error, then when the program halts on error and the 
CPU enters ‘ODT’'. 'SSWREG'’ should be altered to ''060000"' to loop 
on current test and inhibit error typeout, then type ‘P'’ to 
continue program execution. 


H 1 
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5.3 Program and/or Operator Action 


5.3.1 


5.4 


ALL switches in switch pack 2 should be in the ‘OFF’ position 
except when instructed. 


Logic Test 


The first pass through the program will be made with iterations 
inhibited. Successive passes will enable iterations if Swk11=0. 


If not inhibited by APT, the program wil! look for more KWV1li's 
to exercise, one pass will exercise al! KwWV11's. 


If four units are detected, the following will be typed: 


UNIT #000001 COMPLETED TESTING UNIT #000002 
UNIT #000002 COMPLETED TESTING UNIT #000003 
UNIT #000003 COMPLETED TESTING UNIT #000004 
UNIT #000004 COMPLETED 


At End of Pass when all units have been tested, the following 
typeout will occur: 


"ENDPASS 12 = TOTAL ERRORS 4 THERE ARE 4 (OCTAL) UNITS - 
GOOD UNITS (L TO R) 0000000000001011"". 


This indicates that the program has completed 1¢ octal (10 
decimal) passes. During that time 4(octal) errors were detected. 
Also we tested 4 units and the third unit was the only unit to 
fail. 


Inhibiting Auto-Size Feature 


This program will automaticaliy auto-size and test each KwV11_ it 
detects on the system. To inhibit this feature, set bit 15 of 
location *SENVM''. Also, to test an individual KWV11 in a group, 
set this bit and refer to section 3.2 for changing the base 
address of the KWV11 under test. 


SEQ 0007 





I 
teen SEQ 0008 


6.0 ERRORS 


6.1 Error Printout 


Printout varies with the error detected. The error PC typed out 
is the actual location of the error call. 


A HALT at location ‘STYPE''+10 when running with no terminal 
indicates an error has occurred. To find out the number of the 
error, examine location ‘STSTNM''. This is the item number of the 
error. To find out what the error typeout would have pom goto 
to the error pointer table beginning at location ‘ERRTB’ 


6.1.1 Example 


If we examined location “STSTNM’ and found a 5(101) we go to 
location ‘‘S$ERRTB’’ and look through the error pointer table until 
we found item 5. The information would look Like: 


71TEM 5 
EMS ;CLOCK SR DATA ERROR 
DHS sERRPC ASR WAS S/B 
DT5 ; SERRPC ,ASR,$BDDAT , SGDDAT 


DFO ;ALL NUMBERS ARE IN OCTAL FORM 


To find out the information specified by DT5 
(SERRPC,BSR,$BDADR,$BDADR) follow these steps: 


1. Look up the address of the label (i.2., SERRPC) in the symbol 
table which follows the Listing. 


2. * Put this address in the switch register and depress. the 
LOAD ADDRESS switch on the processor's console. 


3. * Now depress the EXAMINE switch. 

4. * The data displayed in the data lights is the information 
that would have been printed for his label if you had a 
input/output terminal. 


* See section 8.4 for LSI-11 ODT commands. 


6.2 


7.0 


i 


7.2 


Page 9 


Non=-Standard Frror Haits 


Bus errors will cause a Halt to the rout ine "*1OTRD"’. The address 
that caused this trap will be in address ‘‘TRIC"’. 


RESTRICTIONS 


ALL switches in switch pack 2 should be in the ‘OFF*’ position 
except when instructed. 


External Inputs 


External inputs such as ‘‘SLAVE IN’, ‘'ST1’' and “‘ST2°’’ must not be 
connected to any customer hardware that might generate these 
signal while the diagnostic is running. 


Startina Restriction 


If a free-running clock, such as 60Hz from the power supply, is 
attached to the ‘BEVNT’’ bus Line on both Rev level C/D and £ 
systems, an interrupt to Location 100 will occur when using the 

and ‘1'* commands prior to wa ger the first instruction. 
Therefore this program can not disable e BEVNT bus Line by 
inhibiting interrupts. 


User systems requiring a free-running clock attached to the BEVNT 
bus Line can temporarily avoid this situation by setting the 
PSW(RS) to 200, loading the PC with the starting address instead 
of aw the "G'' command, and then ing the 'P"’ command. Before 
eine t e 'L'' command, the PSW(RS) can be set to 200, thereby 
inhibiting interrupts, to avoid receiving the event interrupt 
after loading the ABS loader. 


SEQ 0009 
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7.3 Possible Program ‘BOMBS’ 


8.0 


8.1 


8.2 


8.3 


The first two tests of this program check to see if the KwV11 
responds to the address the program thinks its at. If the KwV11 
does not respond, a bus error occurs. Alse bus errors can occur 
during the time the program sizes to see how many KWV11 are on 
you system. 


For more information on the next subject, see JAN. 1976 LSI-11 
ENGINEERING BULLETIN issued by The Digital Components Group. 


Bus errors may alter the preset contents of location 4 before the 
trap is executed, thereby transferring program control to area in 
the program that was not set up tc handle the trap. If this 
er ig the program will BOMB" and possibly rewite parts of 
itself. 


MISCELLANEOUS 


Power Fail 
After a power failure occurs, the program execution will continue 
at Jn point where the power occurred. The program will type 


XXDP, ACT, APT 


The program is chainable under XXDP, ACT, or APT. Althougn ‘‘APT 
Hooks’’ have been installed, they have not been tested. 


Execution Time 


0.5 minutes (30 sec) iteration inhibited - no errors 
2.5 minutes (150 sec) with iterations - no errors 


SEQ 0010 


8.4 


8.5 


LSI=11 “ODT"' C 
FORMAT 


<CR> return 
<LF> Line feed 


*“(uparrow) 


_ (left arrow) 


a 

R/ 

/ 

$N/ or RN/ 
R:G or RG 
NL 

P or P 
RUBOUT 


3 
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DESCRIPTION 


Close opened location and accept next 
Close current location; open next sequential 
location. 

Open previous location. 


Take contents of opened location, indexed by 
contents of PC, and open that Location. 


Take contents of opened location as absolute 
address and open that location. 


Open the word at location R. 
Reopen the last location. 


Open general register N(0-7) or  S(PS 
register). 


GOTO Location R and start program. 


Execute bootstrap loader yaing N as device 
CSR. Console device is 177560. 


Proceed with program execution. 


Erases previous numeric character. Response 
is a backslash (). 


Entering LSI-11 ‘ODT"’ 


The HALT or ODT microcode state of the KDIIF (LSI-11 module) can 
be entered in five different ways (others are a subset of these) 


from the run state: 


fwn- 


- Execution of a LSI-11 HALT instruction, 
- A double BUS error, 

As a POWER UP 

. ASCII break wit 


tion, 
DLV11 rea asserting the 8B HALT 


Line (enabled by jumper of DL 


Upon entering the HALT state, the KD11F responds through the set 
of command listed in section 8.4. 


SEQ 0011 


SEQ 0012 
8.6 Use of Program Software SwR 
The program software switch register is enabled if 
1. No hardware SwWR exists; 


2. If you start with all omes (SWR=177777) in the switch 
register. 


The software switch register may be changed by typing “G (Corcrol 
and letter G keys typed simultaneously). When “G is typed, the 
program responds by typing "‘SWR=XXXXXX'" where XXXXAX equals the 
former contents of the switch register. 


If you wish to keep the current value, type <CR>. If you wish to 
change the value, type the new value foliowed by a <CR>. 


It is_ important to note that the diagnostic is not running after 
the “G until a <CR> is typed. 


Special 1/0 Signal Tests 


Three tests were included to enable checkout of I1/0 signals: 
ST1, ST2, and Clock Overflow. These tests have a special 
starting address. Since end-passes are immediate, no ‘END of 
Pass’’ message is reported. Errors are reported by typing out the 
PC where the error was detected. When started, the program 


remains in a loop eens and detecting the specified signals. 


HALT ON ERROR and IBIT ERROR typeout options may be used. 


Logic test must have already been run on the KWwWV11. 





SEQ 0013 


8.7.1 1/0 Signal Test #1 ST1 IN, ST2 OUT 


Switch pack S2 must be set up as follows: 
SWITCH STATE 


OF F 
ON 
OF F. 
OF F 
ON 
ON 
not used 
The following jumper must be installed. 
J1-SS (ST2 out) to J1-VV (ST1 ind 


Load and start the program at 210. 


8.7.2 1/0 Signal Test #2 Clock Overflow Test 
Switch pack S2 must be set up as follows: 
SWITCH STATE 


not used 
The foilowing jumper must be installed. 
J1-RR (clock overflow) to JI-TT (ST2 in) 
Load and start at location 214. , 








8.7.3 1/0 Signal Test #3 ST1 out and ST2 in 


8.8 


Switch Pack S2 must be set up as follows: 
SWITCK STATE 


NOUS WR 
g 


not used 
The following jumper must be installed: 
J1-UU (ST1 out) to JI-TT (ST2 ind 
Load and start at location 220. 


Productiom Starting Address 


A special starting address has been provided for In-house 
production to use to start the logic diagnostic and inform the 
test that production is using it. ~ 


In the field only enough addresses were alloted for 4 sequential 
KWV11s. When the logic tests are started at location 200, we 
only auto~size up to 4 KWV1ls. 


In house testing may wish to exercise up to 16 KWV11s_ at one 
time. The logic tests may be started at location 230 and the 
program will auto size up to 16 KWV11s. 


SEQ 0014 


8.9 


8.10 
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Testor Starting Address 


A special gt hay address has been provided for manufacturing to 
use to start the pe diagnostic and inform the program that the 
clock module is cabled to an in-house testor. 


Manual intervention is needed in this sequence of testing. The 
program wilt type out all instructions. A cable should connect 
J1 on the clock module to J10 on the testor. Switches 1 and 3 of 
SZ (on the clock module) should be on, all other switches on S2 
should be off. 


Trap Catcher 


The Trap Catcher in this diagnostic at my & new concept. This 
concept will enable the user of this diagnostic to gain more 
knowledge of the events that lead the program to this area. 


The Trap Catch consists of PC+2 and JSR PC,RO. (i.e., Location 
300 would contain 302 and location 302 would contain 4700.) 


When a device interrupts unexpectedly to the Trap Catcher, it 
would pick up the PC+2 of the trap as an address of the interrupt 
service routine. 


The program wouid then pick up '4700°' as the new PSW. Bit 7 of 
the new PSW re been set, would cause further interrupts from 
happening. When the CPU attempts to execute °4700°' (JSR PC,RO), 
a Buss-time-out trap will occur to location 4. Location 4 
contains a pointer to “‘IOTRD’’, a routine that will report the 
trap as an error. 


To guard against 'Real’’ Bus errors routing us through location 4 
to “‘IOTRD'', we check to see if the trap that brought us to 
location 4 ates came from the Trap Catcher area. If not we'll 
halt and leave the Trap Address in ‘TRTO"’. 


More about the interrupt error can be found in the description of 
the error in the program Listing in the routine ‘‘JOTRD"’. 


SEQ 0075 
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CVKWAC .P 08-AUG-79 10:45 TABLE OF CONTENTS SEQ 0016 
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295 12 “TEST THE ADDRESSABILITY OF CLOCK BUFFER REG. 
342 13 *TEST THAT CLOCK A STATUS REGISTER BIT 14 CAN BE SET AND CLEARED 
343 14 “TEST THAT CLOCK A STATUS REGISTER BIT 13 CAN BE SET AND CLEARED 
4 15 *TEST THAT CLOCK A STATUS REGISTER BIT 11 CAN BE SET AND CLEARED 
345 16 *TEST THAT CLOCK A STATUS REGISTER BIT 6 CAN BE SET AND CLEARED 
346 7 *TEST THAT CLOCK A STATUS REGISTER BIT 5 CAN BE SET AND CLEARED 
347 T10 *TEST THAT CLOCK A STATUS REGISTER BIT 4 CAN BE SET AND CLEARED 
348 111 *TEST THAT CLOCK A STATUS REGISTER BIT 3 CAN BE SET AND CLEARED 
349 T12 *TEST THAT CLOCK A STATUS REGISTER BIT 2 CAN BE SET AND CLEARED 
350 113 *TEST THAT CLOCK A STATUS REGISTER BIT 1 CAN BE SET AND CLEARED 
351 114 *TEST THAT CLOCK A STATUS REGISTER BIT Q CAN BE SET AND CLEARED 
385 115 *TEST THAT PATERN 125252 WILL SET AND CLEAR IN BUFFER REG. 
387 116 *TEST THAT PATERN 052525 WILL SET AND CLEAR IN BUFFER REG. 
* 
591 * PHASE 2 ADVANCED BASIC LOGIC TESTS 
404 117 *TEST THE LOW BYTE OPERATION OF CLOCK'S STATUS REGISTER 
430 T20 *TEST THE HIGH BYTE OPERATION OF A'S STATUS REGISTER 
460 121 *TEST CLOCK'S COUNT REGISTER WITH 125252 PATTERN 
486 T22 *TEST CLOCKS COUNTER REGISTER WITH 052525 PATTERN 
519 123 *TEST THAT INIT CLEARS STATUS REGISTER 
556 T24 *TEST THAT INIT CLEARS BUFFER REGISTER 
578 T25 *TEST THE SETTING OF MAINTENANCE ST2 IN CLOCK BIT 15 TO SET 
603 126 *TEST THAT BITOO IN CLOCK STATUS REG. WILL SET WHEN BIT13 AND MAIN. ST2 
* 
619 *PHASE 3 COUNT TESTS 
* 
623 127 *TEST TO SEE IF THE COUNTER WILL INCREMENT 
647 T30 *SEE IF CLOCK WILL COUNT UP FROM A ZERO BASE, RATE:ST1 
131 *TEST THAT OVERFLOW (CSR BITO7) WILL SET ON OVERFLOW 
720 132 *TEST THAT OVERFLOW WILL CLEAR THE GO BIT 
741 133 *TEST THAT GO BIT DOES NOT CLEAR ON OVERFLOW, IF MODE 1 
806 134 *TEST THE ABILITY OF CLOCK TO COUNT AT 1MHZ RATE 
808 135 *TEST THE ABILITY OF CLOCK TO COUNT AT 100KHZ RATE 
810 136 *TEST THE ABILITY OF CLOCK TO COUNT AT 10KHZ RATE 
812 137 *TEST THE ABILITY OF CLOCK TO COUNT AT 1KHZ RATE 
814 140 *TEST THE ABILITY OF CLOCK TO COUNT AT 100HZ RATE 
816 141 *TEST THE ABILITY OF CLOCK TO COUNT AT LINEFREQ RATE 
819 142 *TEST THAT COUNTER DOESN'T COUNT WHEN ‘SLAVE IN'’ RATE IS SELECTED 
84 143 *TEST THAT THE CLOCK WILL COUNT IN MODE 1 
865 *PHASE 4 CLOCK INTERRUPT TEST. 


876 144 *TEST THAT THE CLOCK WILL INTERRUPT ON OVERFLOW 
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1238 T61 *TEST THE CLOCK*S MODE 3 OPERATION 
1278 T62 *IF ENABLED,CHECK THRESHOLD ST1 FROM TESTOR 
1312 163 *IF ENABLED, CHECK ST1,ST2 IN FROM TESTOR 
1410 END OF PASS ROUTINE 
1446 31/0 SIGNAL TEST #1 ST1 IN AND ST2 OUT +g AND OUT 
1474 31/0 SIGNAL TEST #2 CLOCK OVFLOW OUT TEST 
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1563 TTY INPUT ROUTINE 
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1566 POWER DOWN AND UP ROUTINES 
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SS 


' 61 


167400 


000001 
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000200 


000200 000002 


001506 
001444 


«NLIST a 
-ENABL ABS 

: AMA 

$SWR= 167400 


-TITLE KWV11A DISAGNOSTIC MAINDE(-11-CVKWA=C 
;*COPYRIGHT (C) 1979 

*DIGITAL EQUIPMENT CORP. 

; *MAYNARD, MASS. 01754 


** 
° 


eTHIS PROGRAM WAS ASSEMBLED USING THE ‘int MAINDEC SYSMAC 
3g SPRLKAGE (MAINDEC-11=DZQAC-C 3), JAN 19, 1977. 


$TN=1 

.SBTTL OPERATIONAL SWITCH SETTINGS 

ta SWITCH USE 
mm a 
te 15 HALT ON ERROR 

:* 14 LOOP ON TEST 

:* 13 INHIBIT ERROR TYPEOUTS 
:* 11 INHIBIT ITERATIONS 

:* 10 BELL ON ERROR 

:* 9 LOOP ON ERROR 

* 8 LOOP ON TEST IN SWR<7:0> 

.SBTTL TRAP CATCHER 

.=0 

:*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN A ‘'.+2"° 

‘*AND “JSR PC,RO'’ SEQUENCE TO CATCH ILLEGAL INTERRUPTS. 

‘AND INTERRUPTS TO THE WRONG VECTOR. 
**LOCATION 0 CONTAINS A 0 TO CATCH IMPROPERLY LOADED 

+ *VECTORS. 

-WORD IOTRD, 200 :HANDLE BUSS ERROR. 
DISPREG: .WORD 0 sSOFTWARE DISPLAY REGISTER. 
SWREG: - WORD 0 : SOFTWARE SWITCH REGISTER. 

“WORD 104,200,2 IF ''B EVENT''ON Q-BUS IS 

“CONNECTED, WE NEED A WAY OF 
‘IGNORING [TS INTERRUPTS. 
=200 


mp @ASTART 
MP aw#QSTART 


SEQ 0018 
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001100 


00 
177776 


177774 
177772 
177570 
177570 


100000 
040000 


001472 
001456 


MAINDEC=11=CVKWA=C ae AB. 30G6( 1063) 


P CATCHER 


08-AUG- 


@#OITSTI 
aFOITST2 
avOlTST3 
@AWS TART 


@ATSTSTR 


G 2 
79° 10:53 PAGE 1-1 
SEQ 0019 


;WESTFIELD STARTING ADDRESS 


ALL TESTER TESTS 

IF STARTED HERE. 

ZALLOWS PRODUCTION TO oo 
;UP TO 16 CLOCKS.NORMAL =4 


-SBTTL BASIC DEFINITIONS 


Cia. ha OF THE STACK POINTER *** 1100 *** 


STACK= 

-EQUIV. EMT, ERROR ZBASIC DEFINITION OF ERROR CALL 
“EQUIV IOT.SCOPE “ SBASIC DEFINITION OF SCOPE CALL 
; #MISCELLANEOUS DEF INI TIONS 

HT 11 ::CODE FOR HORIZONTAL TAB 

LF= 12 ::CODE FOR LINE FEED 

CR= 15 ::CODE FOR CARRIAGE RETURN 

CRLF = 0 ::CODE FOR CARRIAGE RETURN-LINE FEED 

PS= 177776 ::PROCESSOR STATUS WORD 

EQUIV PS,PSW 

STKLMT= 177776 :rSTACK LIMIT REGISTER 

PIRQ= 177772 > :PROGRAM INTERRUPT REQUEST REGISTER 

DSWR= 177570 + HARDWARE SWITCH REGISTER 

DDISP= 177570 : :HARDWARE DISPLAY REGISTER 
:*GENERAL PURPOSE REGISTER DEFINITIONS 

RO= 20 3:GENERAL REGISTER 

R1= “1 ::GENERAL REGISTER 

R2= %2 :: GENERAL REGISTER 

R3= z ::GENERAL REGISTER 

RG= 14 ::GENERAL REGISTER 

R5= “5 + GENERAL REGISTER 

R6= 16 : GENERAL REGISTER 

R?= ? ; ;GENERAL REGISTER 

SP= % : STACK POINTER 

PC= 17 PROGRAM COUNTER 

s*PRIORITY LEVEL DEFINITIONS 

PRO= 0 ::PRIORITY LEVEL 0 

PR1= 40 “PRIORITY LEVEL 1 

PR2= 100 *=PRIORITY LEVEL 2 

PR3= 140 IORITY LEVEL 3 

PRG = 200 > :PRIORITY LEVEL 4 

PR5= 240 > :PRIORITY LEVEL 5 

PR6= 300 + =PRIORITY LEVEL 6 

PR7= 340 * [PRIORITY LEVEL 7 

:*"'SWITCH REGISTER’ SWITCH DEFINITIONS 

Sw15= 100000 

Sw14= 40000 
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08-AUG-79 1 


000004 
000010 


Sw13= 20000 

SW12= 10000 

Sw11= 4000 

Sw10= 2000 

SwO9= 1000 

SwO8= 400 

SwO7= 200 

SwO6= 100 

SwOS= 40 

Sw0O4= 20 

SwO3= 10 

SWO2= 4 

SwOl= 2 

Swoo= 1 

-EQUIV SW09,SWS 
EQUIV SW08,SwWé 
EQUIV SWO7,SW7 
EQUIV Swi 
EQUIV Sw05,SW5 
EQUIV SW04,SW4 
EQUIV SWw03,SW3 

-FQUIV SWw02,SW2 

-EQUIV SWO1,SW1 

-EQUIV Sw00,SwO 

:*DATA BIT DEFINI 

BIT15= 100000 

BIT14= 40000 

BIT13= 20000 

BIT12= 10000 

BIT11= 4000 

RIT10= 2000 

BITO9= 1000 

BITO8= 400 

BITO7= 200 

BITO06= 100 

BITOS= 40 

BITO4= 20 

BITO3= 10 

BITO2= 4 

BITO1= 2 

BITOO= 1 

EQUIV BITO9,BIT9 
EQUIV BITO8,BIT8 
EQUIV BITO7,BIT7 
EQUIV BIT06,BIT46 
EQUIV BITOS,BITS 
EQUIV BIT04,BITS 
EQUIV BITO3,BIT3 
EQUIV BITO2,BIT2 
EQUIV BITO1,BIT1 
EQUIV BITOO,BITO 
*BASIC ‘‘CPU'' TRAP 

ERRVEC= 4 

RESVEC= 10 


H 2 
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VECTOR» ADDRESSES 
ME OUT AND OTHER ERRORS 
« URESERVED AND ILLEGAL INSTRUCTIONS 





SEQ 0020 
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BASIC DEFINITIONS 


TBITVEC=14 ys OGY 
TRIVEC= 14 ; TRACE TRAP 
BPTVEC= 14 ‘BREAKPOINT TRAP (BPT) 
IOTVEC= 20 a TRAP (IOT) **SCOPE** 
PWRVEC= 24 ;;POWER FAIL 
EMTVEC= 30 : sEMULATOR TRAP (EMT) **ERROR** 
TRAPVE C=34 ""TRAP'' TRAP 
TKVEC= 60 peTTY KEYBOARD VECTOR 
TPVEC= 64 ;TTY PRINTER VECTOR 
PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
ABASE= 170420 
AVECT1= 440 
APRIOR= 200 






$SWR= 167400 
$TN= 1 


-SBTTL ACT11 HOOKS 


5 fA AAAAARARERAERREEKRERRARERRAARRERARAERRRERRERERAARHERRERARAERRREE 


HOOKS REQUIRED BY ACT11 






veC=. SAVE PC 

SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
“WORD 0 ::2)SET LOC.52 TO ZERO 

" =$SVPC «RESTORE PC 


-=1000 
-SBTTL APT PARAMETER BLOCK 


CT EAAARR ERR RE EK EKKEERE KEE EEREEKEAREREERERERERRE EERE EEE ERE 


;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
DISS SIGIISIOI ICIS SIOIISIOIIIOIDIDIDIOIDIOIIOIIOI ICICI IOIOIOIDIDIDIOIDISIOIIOIIDISOIDIDIIDITIDISIDITIDI IE 
- $X=. aor CURRENT LOCATION 
2=24 zSET POWER FAIL TO POINT TO START OF PROGRAM 
200 :FOR APT START UP 
-=44 : TPOINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ;;POINT TO APT HEADER BLOCK 
-=.$X  ;;RESET LOCATION COUNTER 
CDSS IOISIIOISISIDIOIIISIOIDIOIIIOIUIOIOIOIDIOIOIOIIOIOIOIOI IOI IDISI ITI ISO IOI IID IIIT II IE 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


$SAPTHD : 

$HIBTS: .WORD 0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
$TSTM: .WORD 2 ny TIM OF LONGEST 


TEST 
$PASTM: .WORD 120. 7:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY? 
$UNITM: .WORD 120. ADD ITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


-WORD $ETEND- -sntL/? ;;LENGTH MAILBOX~E TABLE (WORDS) 
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08-AUG-79 10:45 COMMON T SEQ 0022 


-SBTTL COMMON “AGS 


SF RRAAAAEARAREARAARREREARAERARARKERERERAAREHRAERRRARARAREREARARRAHAE RED 


[*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
7*USED IN THE PROGRAM. 


001100 .=1100 
1100 SCMTAG: :zSTART OF COMMON TAGS 
1100 000000 .WORD 0 
1102 000 STSTNM: .BYTE 0 ::CONTAINS THE TEST NUMBER 
1103 000 SERFLG: .BYTE 0 ZI CONTAINS ERROR FLAG 
1104 000000 SICNT: 0 >: CONTAINS SUBTEST ITERATION COUNT 
1106 000000 SLPADR: {WORD 9 ZI CONTAINS SCOPE LOOP ADDRESS 
1110 000000 SLPERR: .WORD 0 ZICONTAINS SCOPE RETURN FOR ERRORS 
1112 000000 SERTTL: :.WORD 0 7: CONTAINS TOTAL ERRORS DETECTED 
1114 000 SITEMB: .BYTE 0 TICONTAINS ITEM CONTROL BYTE 
1115 001 $ : IBYTE 1 SICONTAINS MAX. ERRORS PER TEST 
1116 000000 SERRPC: .WORD 0 :: CONTAINS PC OF LAST ERROR INSTRUCTION 
1120 000000 $GDADR: .WORD 0 >: CONTAINS ADDRESS OF ‘GOOD' DATA 
1122 000000 . SBDADR: .WORD 0 SECONTAINS ADDRESS OF ‘BAD’ DATA 
1124 000000 $GDDAT: .WORD 0 ZICONTAINS ‘GOOD’ DATA 
1126 000000 S$BDDAT: :WORD 0 ZICONTAINS *BAD' DATA 
1130 000000 “WORD 0 >IRESERVED--NOT TO BE USED 
132 000000 “WORD 0 7 
001134 000 $AUTOB: .BYTE 0 AUTOMATIC MODE INDICATOR 
001135 000 SINTAG: .BYTE 0 TEINTERRUPT MODE INDICATOR 
1136 00C000 “WORD 0 
001140 177570 “WORD DSWR ;ZADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP ZIADDRESS OF DISPLAY REGISTER 
001144 177560 177560 TITTY KBD STATUS 
001146 177562 $TKB: 177562 TITTY KBD BUFFER 
001150 177564 $TPS: 177564 SITTY PRINTER STATUS REG. ADDRESS 
901152 177566 $TPB: 177566 Zi TTY PRINTER BUFFER REG. ADDRESS 
001154 000 $NULL: .BYTE 0 [CONTAINS NULL CHARACTER FOR FILLS 
001155 002 $FILLS: :BYTE 2 CONTAINS # OF FILLER CHARACTERS REQUIRED 
001156 012 SFILLC: :BYTE 12 :: INSERT FILL CHARS. AFTER A ‘LINE F 
001157 000 STPFLG: .BYTE 0 7: TERMINAL AVAILABLE’ FLAG (BIT<07>=0=YES) 
001160 000000 STIMES: 0 TIMAX. NUMBER OF ITERATIONS 
001162 000000 $ESCAPE :0 TESCAPE ON ERROR ADDRESS 
1164 177607 000377 $BELL: .ASCIZ <207><377><377> SSCODE FOR BELL 
001170 077 SQUES: ASCII TIQUESTION MARK 
001171 015 SCRLF: -ASCII C15 Z:CARRIAGE RETURN 
001172 000012 $LF: — .ASCIZ_ <12> LINE FEED 
 CERRERERRRERARERERREREEEEEREERERERRERRRRRERERE REE REE 
‘SBTTL APT MAILBOX~E TABLE 
TAA RARER AREER EREKEKEREEERRERERERERREEEEE EERE REE EEE 
“EVEN 
1174 $MAIL: 7 ;APT MAILBOX 
1174 000000 SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
1176 000000 $FATAL: .WORD AFATAL ::FATAL ERROR NUMBER 
1200 000000 $TESTIN: .WwORD ATESTN ::TEST NUMBER 
1202 000000 A “WORD PASS COUNT 
1204 000000 $DEVCT: :WORD ADEVCT ::DEVICE COUNT 
1206 000000 $UNIT: WORD AUNIT  ::1/0 UNIT NUMBER 
1210 000000 $MSGAD: .WORD AMSGAD ::MESSAGE ADDRESS 
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CVKWAC 08-AUG-79 10:45 T MAILBOX-E TABL 
(2) 001212 000000 SMSGLG: .WORD 
(2) 901214 SE TABLE: 

(2) 001214 000 SENV: BYTE 
(2) 001215 000 SENVM: .BYTE 
(2) 001216 000000 $SWREG: .WORD 
(2) 001220 000000 $SUSWR:  .WORD 
‘¢) 001222 000000 $CPUOP: .WORD 
(2) 7* 

(2) ;* 

(2) 7* 

(2) 7* 

(2) 3* 

(2) 001224 000 $MAMS1: .BYTE 
(2) 001225 000 $MTYP1: .BYTE 
(2) 7* 

(2) ad 

(2) s* 

(2) 3* 

a 001226 000000 $MADR1: .WORD 
(2) 001230 000 SMAMS2: .BYTE 
(2) 001231 000 SMTYP2: .BYTE 
(2) 001232 000000 SMADR2: .WORD 
(2) 001234 000 SMAMS3: .BYTE 
(2) 001235 000 SMTYP3: .BYTE 
(2) 001236 000000 SMADR3: .WORD 
(2) 001240 000 SMAMS4: .BYTE 
(2) 001241 000 SMTYP4: .BYTE 
(2) 001242 SMADR4: .WORD 
(2) 001244 000440 $VECT1: .WORD 
(2) 001246 $VECT2: .WORD 
(2) 001250 170420 $BASE: .WORD 
(2) 001252 000000 SDEVM: .WORD 
(2) 001254 000000 $CDW1: .WORD 
(2) 001256 $E TEND 

(2) MEXIT 


K 
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; sMESSAGE LENGTH 
33 APT ceueur aie 


; ENVIRONMENT MODE BITS 
7:APT SWITCH REGISTER 
2 sUSER SWITCHES 
;CPU_TYPE OPTIONS 
Bits uit} CPU TYPE 
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
11/70=06, PDQ=07 ,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT ~ sesiestany 
BIT 8=MEMORY MANAGEMENT 


: HIGH ADDRESS, a BYTE 


7;MEM. TYPE ,BLKA 
MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE= 
300 NSEC BIPOLAR=002 
NSE S$=00 


500 

3 HIGH ADDRESS ,BLKA1 

MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘'‘TYPE’’ ABOVE 
: ¢HIGH ay tet M.S. BYTE 
:7MEM. TYPE ,BLKA2 

;MEM.LAST ADDRESS ,BLK#2 
7:HIGH ADDRESS,M.S.BYTE 
; :MEM. TYPE .BLKAS 


: ¢HIGH ADDRESS .M.S.BYTE 
oo YPE, KaG 
2MEM.LAST ADDRESS ,BLK#4 
INTERRUPT VECTOR#1,BUS PRIORITY#1 
‘ EINTERRUPT VECTORA2BUS PRIORI TY#2 
;sBASE ADDRESS OF EQUIPMENT UNDER TEST 


; DEVICE MAP 
3; CONTROLLER DESCRIPTION WORDA1 


SEQ 0023 
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ERROR POINTER TABLE 


.SBTTL ERROR POINTER TABLE 


3*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;*NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC) 


: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
* EM ::POINTS TO THE ERROR MESSAGE 
* DH ::POINTS TO THE DATA HEADER 
* DT >:POINTS TO THE DATA 
* DF >:POINTS TO THE DATA FORMAT 
SERRTR: 
s ITEM 1 

EM1 :CLOCK SR FUNCTION ERROR 

DH1 TERRPC ASR WAS S/B 

DT1 [SERRPC ASR, SBDDAT , $GDDAT 

DFO TALL NUMBERS ARE IN OCTAL FORM 
zITEM 2 

EM2 :CLOCK SR DATA ERROR 

DH1 TERRPC ASR WAS 5/B 

DT1 S$ERRPC ASR, SBDDAT , $GDDAT 

DFO TALL NUMBERS ARE IN OCTAL FORM 
: ITEM 3 

EM3 :CLOCK BR DATA ERROR 

DH3 TERRPC ABR WAS 

DT3  SERRPC ABR, SBDDAT , SGDDAT 

DFO TALL NUMBERS ARE IN OCTAL FORM 
ZITEM OG 

EMG : INTERRUPT ERROR. 

DH4A SERRPC TO ROM ADDR. 

DT4 *$ERRPC, TRTO, TRFRO 

DFO ZALL NUMBERS ARE IN OCTAL FORM 
: ITEM 5 

EMS :CLOCK COUNT REG ERROR 

DH1 “ERRPC ASR WAS  S/B 

DT1 [SERRPC, ACR, SBDDAT, $GDDAT 

DFO TALL NUMBERS ARE IN OCTAL FORM 


SEQ 0024 


KWV11A DISAGNOSTIC met CVKWA=C MACY11 30G6(1063) 


CVKWAC.P11 


(1) 


BELESRAVLE SRI GRALAVTSOSSANAGE 


S88 


08-AUG- 


017423 


017737 


M 
08-AUG-79 


ERROR POINTER TABLE 


: ITEM 


; ITEM 


: ITEM 


ZITEM 


Z ITEM 


ABASE 
ABASE +2 
AVECT1 
AVECT1+2 
AVECT1+4 
eens a +6 


Ver 77a 
167772 
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;CLOCK COUNT FUNCTION ERROR 
sERRPC =ASR 
sERRPC, ASR 
ALL NUMBERS ARE IN OCTAL FORM 


er INTERRUPT ERROR 
7 ERRP ASR 
‘SERRPC, ASR 
TALL NUMBERS ARE IN OCTAL FORM 


:CLOCK REPEATABILITY ERROR 

;ERROR ASR 2ND CNT 1ST CNT_ 53RD CNT 
SSERRPC, ASR, SBDDAT, SGDDAT, $TMPO 
TALL NUMBERS ARE IN OCTAL FORM 


:CLOCK COUNT ERROR 

SERRPC ASR WAS S/B 
;SERRPC, ASR, SBDDAT, $TMPO 
TALL NUMBERS ARE IN OCTAL FORM 


: CLOCK ee ERROR 
sERRPC CLOCK ADDR. 


SERRPC, STMPO 
TALL NUMBERS ARE IN OCTAL FORM 


VECTOR ADDR. OF ST2 INTRS. 


fig STORAGE . 
; TMP STORAGE. 


;POINT TO DEVICE UNDER TEST. 
KEEPS TRACK OF GOOD UNITS. 
; COUNTS ERRORS. 


SEQ 0025 
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SEQ 0026 


MDEVCT: .WORD 0 ;COUNTS DEVICES TESTED. 
TSTCNT: .WORD 0 ;MAX DEV ICES TO BE TESTED. 
EXS: -WORD QO 320, =1 SPECIAL TESTOR START, BY L*S @ 2 
LCNT: ; WOR 0 + TOTAL UNITS TESTED. 
QSTART: MOV #RSTART, STMPO ;LOAD SETUP RETURN ADDRESS 
JMP INIT ; INIT THE PROGRAM VECTOR SPACE 
TSTSTR: INC EXS ;SET FOR TESTOR. 
MOV #16.,TSTCNT ;ALLOW 16 UNITS 
BR 1$ 
WSTART=. 
MOV #16.,TSTCNT ; TEST UP TO 16 UNITS. 
CLR EXS 
BR 1$ 
START=. 
oh + ie ; TEST UP TO FOUR UNITS. 
aeit MOV #ZSTART,$STMPO ;LOAD SETUP RETURN 
-SBTTL INITIALIZE THE COMMON TAGS 
:;CLEAR THE COMMON TAGS (S$CMTAG) AREA 
MOV #SCMTAG,R6 7zFIRST LOCATION TO BE CLEARED 
CLR (R6) + ;;CLEAR MEMORY LOCATION 
CMP #SWR.R6 ;;DON 
~ -~6 3;LOOP BACK IF NO 
MSTACK, SP :zSETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTOR S 
MOV #S$SC @#IOTVEC 350t VECTOR FOR SCOPE ROUTINE 
MOV #340, a#IOTVEC+2 scLEVEL 7 
MOV #SERROR, @FEMTVEC sem VECTOR FOR ERROR ROUTINE 
MOV #340, avEMTVEC+2 + sLEVE 
MOV #$T. TRAP, @ATRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
MOV #340, @*TRAPVEC+2; LEVEL 7 
MOV ASPWRDN, @FPWRVEC POWER FAILURE VECTOR 
MOV #340, @ePWRVEC+2 s7LEVEL 7 
CLR STIMES sc: INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE 7:CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX rts ONE ERROR PER TEST 
MOV #.,SLPADR ; INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV #.,$LPERR * SETUP THE aot LOOP ADDRESS 
szSIZE FOR A HARD WARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘‘~1"', SETUP FOR A SOFT WARE SWITCH REGISTER. 
MOV @FERRVEC ,- (SP) : — ERROR VECTOR 
MOV #64$ , AMERRVEC 33SET UP ERROR VECTOR 
MOV ADSWR,SWR a FOR A HARDWARE SWICH REGISTER 
MOV MDDISP,DISPLAY ; SAND A HARDWARE DISPLAY REGISTER 
CMP #-1,aSWR ; TRY TO REFERENCE HARDWARE SwWR 
BNE 66$ :JBRANCH IF NO TIMEOUT TRAP OCCURRED 
: THE HARDWARE SWR IS NOT = -1 
BR 65$ + : BRANCH IF NO TIMEOUT 
64$: aoy #65$, (SP) tISET UP FOR TRAP RETURN 
65$: MOV ASWREG, SWR :zPOINT TO SOFTWARE SWR 
MOV #D1SPREG, DISPLAY 


B 
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CVKWAC P11 08-AUG-79 10:45 INITIALIZE THE COMMON TAGS SEQ 0027 
(2) 001742 012637 000004 66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
(2) 001746 005037 001202 CLR SPASS sCLEAR PASS COUNT 
(2) 001752 132737 000200 001215 BITB  #APTSIZE,SENVM TEST USER SIZE UNDER APT 
(2) 001760 001403 BEQ 67$ YES,USE NON-APT SWITCH 
g) 901762 012737 001216 001140 at MOV ASSWREG, SWR *INO,USE APT SWITCH REGISTER 
206 001770 000177 177424 JMP a$TMPO ZEXIT PROGRAM VECTOR SETUP SPACE 
228 001774 ZSTART: 
(1) 001774 012746 000340 MOV #340,-(SP) :SET CPU PRIORITY ON RETERN. 
(1) 002000 012746 002006 MOV #64$,-(SP) = SHOW RETURN ADDRESS. 
(1} 002006 000002 RTI ‘CAUSE A RETURN(PUTS STATUS IN STATUS REG.)-. 
a) 002006 64$: 
229 002006 005037 001204 CLR SDEVCT ;ZERO DEVICE COUNT. 
230 002012 012737 017102 000004 MOV MIOTRD, @#ERRVEC :FIX TRAP CATCHER. 
231 002020 013737 001244 001402 MOV $VECT1.VECT1 “NOW FIX VECTOR ADDR. 
332 002026 013737 001250 001376 MOV S$BASE ,ASR 7FIX ADDRESS OF CSR. 
234 .SBTTL TYPE PROGRAM NAME 
(1) TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
(1) 002034 005227 177777 INC #-1 ZF IRST TIME? 
(1) 002040 001041 BNE 658 ; ;BRANCH IF 
(1) 002042 104401 002110 TYPE ,66$ YPE ASCIZ NETRING 
(2) .SBTTL GET VALUE FOR SOFTWARE suiTcH REGISTER 
(2) 002046 005737 000042 TST ars ;ARE WE RUNNING UNDER XXDP/ACT? 
(2) 002052 001012 BNE 67$ BRANCH IF YES 
(2) 002054 123727 001214 000001 CMPB —Sss SEN, #1 ;7ARE WE RUNNING UNDER APT? 
(2) 002062 001406 BEQ 67 [BRANCH IF YES 
(2) 002064 023727 001140 000176 CMP SWR ,ASWREG ; 3 SOF TWARE SWITCH REG SELECTED? 
(2) 002072 001005 BNE 68$ CH IF NO 
(2) 002074 104406 GTSwWR *:GET SOFT-SWR SETTINGS 
(2) 002076 000403 BR 68$ 
(2) 002100 112737 000001 001134 678: MOVB #1, $AUTOB ::SET AUTO-MODE INDICATOR 
(2) 002106 68$: 
(1) 002106 000416 BR 65$ :GET OVER THE ASCIZ 
(1) 32668: .ASCIZ <CRLF>ACVKWAC kiuvi1 DIAGNOSTICA<CRLF> 
(1) 002144 65$: 
235 002144 RSTART 
236 002144 005737 001440 TST EXS ; TESTOR MODE ENABLED?? 
237 002150 001441 BEQ 1$ :NO DON'T TYPE NEXT MESSAGE. 
238 002152 104401 002160 TYPE ,65$ :TYPE ASCIZ STRING 
(1) 002156 000436 BR 64$ ‘GET OVER THE ASCIZ 
(1) ::65$: .ASCIZ <15><12>#TESTOR MODE ENABLED--SEE DOCUMENTATION FOR INSTRUCTIONS.# 
(1) 002254 64$: 
239 002254 1$: 
(1) 002254 104401 002262 | TYPE 67% :TYPE ASCIZ STRING 
(1) 002260 000411 BR 66$ GET OVER THE ASCIZ 
(1) 3:67$: .ASCIZ <15><12>#TEST RUNNING. . .# 
(1) 002304 668: 
240 002304 005037 001434 CLR MDEVCT : TESTING FIRST UNIT. 
241 002310 005037 001432 CLR FRCNT *NO ERRORS. 
242 - 002314 005037 001202 CLR $PASS *NO PASSES. 
243 002320 012737 000001 001426 MOV #1,ROTATE ‘POINT TO FIRST UNIT. 
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013737 
042737 
013737 
062737 
013737 
062737 
013737 
062737 


013737 
062737 


012737 


013746 
012737 


005777 


000406 


062706 
013737 


104012 


012637 


001426 


170000 
001402 
G00002 
001402 
000004 
001406 
000002 


001376 
000002 


000050 
ates 


00000 
002454 
000004 


002474 
176704 


000004 
001376 


000004 


000004 


001420 


LOOP: 


MOV 
ADD 


C 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


ROTATE ,UTEST 


#170000, VECT1 
VECT1,VECTP 
#2,VECTP 
VECT1,VECT2 
#4 ,VECT2 
VECT2, VECT2P 
#2,VECTOP 


ASR , ABR 
#2, ABR 


;COME HERE FOR NEXT UNIT,OR END PASS. 


;CLEAR OUT PRIORITY BITS. 
sNOW FIX VECTOR +2 “DDR. 


sLETS FIX ST2 VECTOR ADDR. 
71TS 4 GREATER THEN THE 1ST. 
[VECTOR +2 ADDR. 


FIX ADDR OF PRESET REG= 
:CSR + 2 


J FRA EAA ARERERARRRARERERARERAEARARARAERAERRERARRAERERRARRRERE 


*TEST THE ADDRESSABILITY OF CLOCK CSR 


MAAS AREAARARASLALALAALESARSASARA RARER EALA RASA RAR ARS RRR ARREARS ARES 


s*TEST 1 
1811: NOP 


2$: 
ADD 
MOV 


#50,$TIMES 
#1$,$LPADR 
#1,$TSTNM 

#1$,$LPERR 


@VERRVEC , (SP) 
#2$ ,AAERRVEC 


@ASR 


3$ 


#4 ,SP 
ASR, $TMPO 


3:D0 50 ITERATIONS 
::SET SCOPE LOOP ADDRESS 
SET TEST #1. 


‘ser CONTENTS OF ADDRS 6. 


TIME-OUT TRAP VECTOR TO HANDLER IN CASE. 


;WE TIME-OUT WHEN ADDRESSING THE KW11. 


SADDRESS THE CLOCK! 
:1F CLOCK DOES NOT RETURN 
:‘BUS SSYN'' THEN WE'LL TIME-OUT 


; THE CLOCK WAS THERE! EXIT SUB-TEST. 


/ADD #4 TO STACK POINTER. 
;FOR ERROR TYPEOUT. 


| SS$SSSSSSSSSSSSSSSSSSS$S>>> ERROR <<<S$SSSESSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 


12 


REPORT ERROR=CLOCK CSR FAILED TO RETURN 
3; BUS SSYN'' WHEN ADDRESSED. 
SNOTE: IF PROGRAM HAS INCORRECT 


ZADDRESS THEN WE MIG NOT BE 
; TALKING TO THE CLOCK. MAKE SURE 
;OF CLOCK ADDRESS. 


| S$SSSSSSSSSSSSSSSSESSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSESSS 


3$: MOV 


(SP) +, @#ERRVEC 


FS AAAAA AA AERA ARAAAERAARAAHAAAAARAARRAEREAAARERAATAKEREKA RARER RHEE 


SEQ 0028 


KWV11A DISAGNOSTIC MAINDEC=11-CVKWA-C 


CVKWAC.P11  O8-AUG-79 10:45 
(4) 
(4) 
(3) 002514 000004 
1) 
(1) 002516 013746 000004 
(1) 002522 012737 902536 
() 002530 005777 176644 
1) 
a) 
(1) 002534 000406 
(1) 002536 
(2) 002536 062706 000004 
(1) 002542 013737 001400 
(2) 
(1) 002550 104012 
(1) 
1) 
a) 
(1) 
1) 
(1) 
(2) 
(1) 002552 012637 000004 
30% 
341 
342 





000004 


001420 


D 
gibi 30G(1063) O8-AUG-79 10:53 PAGE 1- 
*TEST THE ADDRESSABILITY OF CLOCK BUFFER REG. SEQ 0029 


s*TEST 2 *TEST THE ADDRESSABILITY OF CLOCK BUFFER REG. 


S RARER AAAAREARRAEKEARERRERRARARRARRARRAARRAARARRARRREAARAAARERA EH 


TST2: SCOPE 


1$: MOV @FERRVEC,-(SP) ;SAVE CONTENTS OF ADDRS 6. 
MOV #2$ , AAERRVEC ;SET TIME-OUT TRAP VECTOR TO HANDLER IN CASE. 
WE TIME-OUT WHEN ADDRESSING THE KW11. 
TST @ABR ADDRESS THE CLOCK! 
:IF CLOCK DOES NOT RETURN 
7'BUS SSYN'' THEN WE'LL TIME-OUT 


we BR 3$ :THE CLOCK WAS THERE! EXIT SUB-TEST. 
Fa ADD #4,SP :/ADD #4 TO STACK PGINTER. 
MOV ABR, $TMPO :FOR ERROR TYPEOUT. 


| SESSSSSESSSSSSSSSSSSSSSS>>> ERROR <<<$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 12 ;REPORT ERROR=CLOCK BUFFER REG. FAILED TO RETURN 
:'BUS SSYN'' WHEN ADDRESSED. 
;NOTE: IF PROGR4M HAS INCORRECT 
ADDRESS THEN WE MIG NOT BE 
; TALKING TO THE CLOCK. MAKE SURE 
;OF CLOCK ADDRESS. 


j  SSSSSSSSSSSSSSSSSSSSSS$SS>>> ERROR <<<S$S$$SSSHSSSSSSSSSSSSSSSSSSSSSSSS 
3$: MOV (SP) +, a#ERRVEC 


2 
KWV11A DISAGNOSTIC MAINDEC=11=CVKWA=C MACY11 30G6(1063) 08-AUG-79 10:53 PAGE 1 


-12 
CVKWAC .P11 08-AUG-79 10:45 T2 *TEST THE ADDRESSABILITY OF CLOCK BUFFER REG. SEQ 0030 

(1) s/f 
(5) JF LARA ARERRAERARRARRARRRERARRRARARARARARARRARERRERAERARAREEREREAERE 
rH seTEST 3 *TEST THAT CLOCK A STATUS REGISTER BIT 14 CAN BE SET AND CLEARED 
(5)  eCLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 
(5) iF /FS OR GATES 
: 
(4) FF RAAAAAARARARERARERREAAERERRRARAARAARARRARARAAAERRRARRRARARAAHRRERA ED 
(3) 002556 000004 TST3: SCOPE 
si 002560 012737 000100 001160 MOV #100. $TIMES 3:DO0 100 ITERATIONS 
(1) 566 005077 176604 CLR @aASR ;/CLEAR THE STATUS REGISTER. 
(1) 002572 052777 040000 176576 BIS #B1T14,a4SR */SET BIT 14. 
(1) 002600 012737 940000 001124 MOV #B1T14, oe ye 7/SET FOR ERROR TYPEOUT S/B. 
(1) 002606 017737 176564 001126 MOV aaAsR, $ADDA + /READ THE STATUS REGISTER. 
(1) 002614 .023737 001124 001126 CMP $GDDAT, SBDDAT :/DID BIT 14 AND ONLY BIT 14 SET? 
Bh 002622 001402 BEQ 1$ s/1F SO-LETS TRY CLEARING IT. 

s  SESSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$S$$SSSSSSSESSSSSSSSSSSSSSSSSSSSES 
(1) 002624 104002 ERROR 2 ;7ERROR CLOCK AS STATUS — 
i, :/BIT 14 FAILED TO BIT SET 
dé 

sSSSSSESSSSSSSSSSSSSSSSSES>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
3h 002626 000412 BR 2$ ;/BR TO END SUBTEST. 
(1) 002630 042777 .040000 176540 1$: BIC #B1T14,a@ASR ;/TRY CLEARING BIT 14. 
(1) 002636 005037 001124 CLR SGDDAT 7s/CLEAR S/B FOR TYPEOU! IF ANY. 
(1) 002642 017737 176530 001126 MOV @ASR, $BDDAT ’ 3/NOW READ IT BACK. 
he 002650 001401 BEQ 2$ 3/IF ZERO - NO ERROR! 
(2) | 

:  SSSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<$S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 002652 104002 ERROR 2 7/ERROR - CLOCK A STATUS REGISTER. 
3h :/BIT 14 FAILED TO CLEAR. 
(2) 

LL ESSSSSSSSSSSSSSSSSESSSSES>>> ERROR <<<$S$$SESHSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 002654 es: 
(1) 
343 


KwV11 


= 
S 
oF 
‘vo 


EQOA AA AAA FARRAR 
NR 2 2 2 2S SS NW FUNNY RUIS 


ee NON ONe ee te ee oe es 


ananAn 
nw 
www 


Ct 
Nh a oS 
~~ Ne wwe a 


—tee 


002750 


002752 


000004 
012737 
605077 


001401 


104002 


10:45 


020000 
001124 
176432 


SAGNOSTIC MAINDEC=11=CvkWA=( 
1 08-AuG-79 


001160 


176500 
001124 
001126 
001726 


176442 
001126 





F 
aa 30G(1063) O8-AUG-79 10:53 PAGE 1-13 
13 *TEST THAT CLOCK A STATUS REGISTER BIT 14 CAN BE SET AND CLEARED SEQ 0031 


3/4 


Wen SAAERRERERRRRRALARARAAAREARRERARARARARARRRRARAR ARRAS S AAAS ASD BI 


:*TEST 4 *TEST THAT CLOCK A STATUS REGISTER BIT 13 CAN BE SET AND CLEARED 
: CLOCK STATUS. REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 


peF/FS 
se 
FF AAARAARAAAARAAAAERERAKEREREKARERAEAARRRRAEARERARARRARRAERAKERER EAH 
TST4: SCOPE 
MOV #100,$TIMES ;.DO0 100 ITERATIONS 


CLR a@ASR :/CLEAR THE STATUS REGISTER. 

BIS #B1T13,@ASR 3/SET BIT 13. 

MOV #B1T13,$GDDAT ;/SET FOR ERROR TYPEOUT S/B. 

MOV @ASR, SADDAT ;/READ THE STATUS REGISTER 

CMP $GDDAT,$BDDAT :/DID BIT 13 AND ONLY BIT 13 SET? 
BEQ 1$ 371F SO-LETS TRY CLEARING IT. 


- 7 SSSSSSSSSSSSSSSSSSSS$SSSS$>>> ERROR <<<S$$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 ;7ERROR_ CLOCK AS STATUS REGISTER 
;/BIT 13 FAILED TO BIT SET. 


| S$$$SSSSSSSSSSSSSSSSSS$SS>>> ERROR <<<$SSS$SSSSSSSSSSSSSSSSSSSSSSSSSSS 


BR 2$ ;/BR TO END SUBTEST. 
1$: BIC #B1T13,@ASR 3/TRY CLEARING BIT 13. 
CLR $GDDAT ;/CLEAR S/B FOR TYPEOUT IF ANY. 
MOV @ASR, $BDDAT :/NOW READ IT BACK. 
BEQ 2$ 371F ZERO - NO ERROR: 


LL SBSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 ;7ERROR - CLOCK A yy 4 REGISTER. 
+/BIT 13 FAILED TO CLEAR 
s SSSSSSSSSSSSSSSSSSSESSES>>> ERROR <<<$S$H$SSSESSSSSSSSSSSSESSSSSSSSSSS 
eb: 


oe ee te te tae ee a el 


i 
eNO Ne Oe ee ee 


EO ELK 


oe 
wwe we we ee 


DISAGNOSTIC hua 
P11 10:45 


002752 
002754 


003046 


003050 


08-AUG-79 


000004 
012737 


017737 
001401 


104002 . 


000100 


176410 
004000 
004000 
176370 
001124 


004000 
001124 
176334 


001160 


176402 
001124 
001126 
001126 


176344 
001126 


+ ade 30611063) 


G 
08-AUG-79 10:55 PAGE 1-14 


*TEST THAT CLOCK A STATUS REGISTER BIT 13 CAN BE SET AND CLEARED 


3/a 


~4 PUT TTTTTTTITTTITTTT LTTE LETT 


;*TEST 5 


*TEST THAT CLOCK A STATUS REGISTER BIT 11 CAN BE SET AND CLEARED 


CLOCK yt A REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 


3*F/FS OR GAT 


"2 
° 


WEP RARRRRSRRRRRARRASASRARARR RRR RRR RRR RRR RRR RRR SERRA RS RRR SRR R SSS SI 


TSTS: SCOPE 


#100,$TIMES 3;:D0 100 ITERATIONS 


@ASR ;/CLEAR THE STATUS REGISTER. 
#B1T11,@ASR 3/SET BIT 11. 

#B1T11.$GDDAT  :/SET FOR ERROR TYPEOUT S/B. 
@ASR , $BDDAT ;/READ THE STATUS REGISTER. 


$GDDAT,$BDDAT ;/DID BIT 11 AND ONLY BIT 11 Rap 
1$ 3/1F SO-LETS TRY CLEARING IT 


| SESESSSSSSSSSSSSSSSSSSS$S>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 


2 ;7ERROR CLOCK AS STATUS REGISTER 
;/BIT 11 FAILED TO BIT SET. 


| SSSSSSSSSSSSSSSSSSSSES$$>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BR 


2$ ;/BR TO END SUBTEST. 
#811T11,@ASR 3/TRY CLEARING BIT 11 

$GDDAT :/CLEAR S/B FOR TYPEOUT IF ANY. 
@ASR , SBDDAT ;/NOW READ IT BACK 

2$ :/1F ZERO - NO ERROR! 


j  SSSSSSSESSSSSSSSSSSSSSSSE>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 


2 ;7ERROR - CLOCK A STATUS REGISTER. 
;/BIT 11 FAILED TO CLEAR. 


| SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


2$: 


SEQ 0032 


Fae ee ee ee ee i a 
ee Nee eee ee ee 


ee ee 


a AA 
wo 
~~~ 


RAR AR 
a 
Swe we we we we a 


DI SAGNOS 
Pi 


003144 


003146 


TIC a es 


08-AUG-79 1 


000004 
012737 


000412 


042777 
005037 
017737 
001401 


104002 


000100 
176312 


001124 


001160 


176304 
001124 
001126 
001126 


176246. 


001126 





3 
MACY11 30G6(1063) 08-AUG-79" 10:53 PAGE 1-15 
T5 *TEST THAT CLOCK A STATUS REGISTER BIT 11 CAN BE SET AND CLEARED SEQ 0033 


;/# 
. 
LE ARARAAAARAAAAAARAERAAAAAAAAERARAEREARARAAARERRAAEAAAAAAARERERRE EE 


eeTEST 6 *TEST THAT CLOCK A STATUS REGISTER BIT 6 CAN BE SET AND CLEARED 


“CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 
;*F/FS OR GATES 


‘* 
’ 


SRR REAR RAKEREREREARAERAERARARRARAERRRERRREHEREE EE 


~ 4816: SCOPE 


MOV #100,$TIMES ;:D0 100 ITERATIONS 


CLR @ASR ;7CLEAR THE STATUS REGISTER. 
BIS #B11T6,@ASR :/SET BIT 
MOV #B1T6,$GDDAT :/SET FOR ERROR TYPEOUT S/B. 
MOV @ASR,$BDDAT ;/READ THE STATUS REGISTER. 
CMP SCDDAT, SRDDAT :/DID BIT 6 AND ONLY BIT 6 SET? 
BEQ 371F SO-LETS TRY CLEARING IT. 
|  SESSSSSSSSSSSSSSSSSSISSS$>>> ERROR <<<$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 : ;7ERROR CLOCK AS STATUS REGISTER 


;/BIT 6 FAILED TO BIT SET. 
;  S$SSSSSSSSSSESSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSESS 


BR 2$ ;/BR TO END SUBTEST. 
1$: BIC #8116, aASR ¢/TRY CLEARING BIT 6. 
CLR $GDDAT /CLEAR S/B FOR TYPEOUT IF ANY. 
MOV @ASR ,$BDDAT “/NOW READ IT BACK. 
BEQ 2$ :/1F ZERO - NO ERROR! 


s  SSSSSSSSSSSSSSSSSSSSSSSEE>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 : ;/ERROR - CLOCK A STATUS REGISTER. 
;/BIT 6 FAILED TO CLEAR. 
s  SSSESSLSSSSSESSSSSSSSSS$S>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSESSSSSSSSSSS 
2%: 


KWVTTA DI SAGNOS TIC MAINDE C=11=CVKWA=C 
08-AUG-79 10:45 


CVKWAC P11 


Fan tan a aa a 
Mme a SS eS DD 
wweweweweweweww 


rn 
ro 
dd 


Ct a te ee ee i a 
ee 
wee ewww 


003242 


003244 


000004 
012737 


104002 


000100 
176214 
000040 


000040 
176174 
001124 


000040 
001124 
176140 


001160 


176206 


001126 


176150 
001126 


ov 30G6(1063) 


I 
O8-AUG-79 10:53 PAGE 1 


-16 
*TEST THAT CLOCK A STATUS REGISTER BIT 6 CAN BE SET AND CLEARED 


3/f 


RRNA REE EERE RRR EERE REE E ERE R EERE RRR EEE REE 


;*TEST ? 


*TEST THAT CLOCK A STATUS REGISTER BIT 5 CAN BE SET AND CLEARED 


‘ *CLOCK STATUS we BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 


seF/FS OR GATES 


POR RARESASSAASLALELELSASESER SERS EERE RE RRR ERR RRR SASSER RAR RRA REAR OD DS 


TS17: SCOPE 


#100,$TIMES 3:D0 100 ITERATIONS 


@ASR 37CLEAR THE STATUS REGISTER. 
#B1T5,@ASR :/SET BIT 5. 

#B1T5,$GDDAT ;/SET FOR ERROR TYPEOUT S/B. 
@ASR , $BDDAT ;/READ THE STATUS REGISTER. 
$GDDAT,$BDDAT :/DID BIT 5 AND ONLY BIT 5 SET? 
1$ 371F SO-LETS TRY CLEARING IT. 


3 S$SSSSSSSSSSESSSSSSSSSSESS>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSESSSSSS 


ERROR 


2 ;7ERROR CLOCK AS STATUS REGISTER 
;/BIT 5 FAILED TO BIT SET. 


| S$SSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSS 


- BR 


2$ ;/BR TO END SUBTEST. 
#B1T5,aASR e/TRY CLEARING BIT 5. 

$GDDAT /CLEAR S/B FOR TYPEOUT IF ANY. 
@ASR , SBDDAT 27 NO READ IT BACK. 

2$ /IF ZERO - NO ERROR! 


| S$SSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 


2 ;7ERROR - CLOCK A STATUS REGISTER. 
;/BIT S FAILED TO CLEAR. 


s SSESSSSSSSSSESSSSSSSSSES$SS>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


2s: 


SEQ 0034 


J 3 
KWV11A DISAGNOSTIC MAINDEC=11=CVKWA-C MACY11 30G(1063) 08-AUG-79 10:53 PAGE 1-17 
CVKWAC P11 08-AUG=79 10:45 17 *TEST THAT CLOCK A STATUS REGISTER BIT 5 CAN BE SET AND CLEARED SEQ 0035 


:/f 


MARRERERALASLLSLALLSSLSALA SALE LES ESE SERRA SAR RRR RRR A RAR RRA RRR R SESS SS 


: TEST 10 *TEST THAT CLOCK A STATUS REGISTER BIT 4 CAN BE SET AND CLEARED 


‘ *CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 
:*F/FS OR GATES 


oe 


LARA RARER EERE RERRE ERRATA RREARARRRERAERRRERRER EES 


000004 TST10: 
01273/ 000100 #100, $TIMES ;:D0 100 ITERATIONS 


176116 @ASR :/CLEAR a STATUS REGISTER. 
000020 #B1T4,@ASR 3/SET BIT 
Mente #B1T4,$GDDAT :/SET FOR ERROR TYPEOUT S/B. 


i @ASR , $BDDAT : 
001724 SGDDAT,$BDDAT_ ; T 4 AND ONLY BIT 4 SET? 
1$ :/1F SO-LETS TRY CLEARING IT. 


j  S$SSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 ;7ERROR CLOCK AS STATUS . site 
:/BIT 4 FAILED TO BIT SET 


;  SESSSSSSSSSSESSSSSSSSSSSS>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2$ ;/BR TO END SUBTEST. 
093316 000020 176052 g #B1T4,@ASR e/TRY CLEARING BIT 4. 
005077 001124 $GDDAT /CLEAR S/B FOR TYPEOUT IF ANY. 


176042 001126 @ASR , $BDDAT :7NOM READ IT BACK 
2s F ZERO - NO ERROR! 


ee ee ee ee i a tn te a i 
Mee eS SS VS SMW PO 


eee ee ee te 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 


| S$SSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 rs - CLOCK A STATUS REGISTER. 
3;/BIT 4 FAILED TO CLEAR. 


Noe——— 
Swe we we 


s  SSSSSESSSSSSSSSSSSSEE$SES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSESSSSSSSSSSS 
2s: 





KWV11A DISAGNOSTIC MAINDEC=11=CVKWA=C MACY11 306(1063) 08-AUG-79° 10:53 PAGE 1-18 
CVKWAC P11 08-AUG-79 10:45 710 *TEST THAT CLOCK A STATUS REGISTER BIT 4 CAN BE SET AND CLEARED SEQ 0036 
(1) 3/" 
(5) SERRA AAAEEKEAEAEERAAARAREAERAAAEHERAERRAAREREEH 
os} ; TEST 11 *TEST THAT CLOCK A STATUS REGISTER BIT 3 CAN BE SET AND CLEARED 
(5) ‘ *CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 
(5) >*F/FS OR GATES 
+4 SF RAAARARARAAAERAEARERERARAARARARKRAEAAAARARAARAREAARAARARAERRRRERRERRAS 
(3) 003342 000004 TST11: SCOPE 
ve 003344 012737 000100 001160 MOV #100, $TIMES 3:D0 100 ITERATIONS 
(1) 003352 005077 176020 CLR @ASR ;/CLEAR THE STATUS REGISTER. 
(1) 003356 052777 000010 176012 BIS #B1T3,@ASR 3/SET BIT 3. 
(1) 3 012737 000010 001124 MOV #BITS, tote y :/SET FOR ERROR TYPEOUT S/B. 
(1) 003372 017737 176000 001126 MOV @ASR, $BDDAT :/READ THE STATUS REGISTER. 
(1) 003400 023737 001124 001126 CMP $GDDAT,$BDDAT :/DID BIT 3 AND ONLY BIT 3 SET? 
yt 003406 001402 BEQ 1$ 371F SO-LETS TRY CLEARING IT. 
|  S$SSSSSSSESSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSESSSSSSSSSSSSSSSSSSSSSS 
(1) 003410 104002 ERROR 2 :7ERROR CLOCK AS STATUS REGISTER 
Me :/BIT 3 FAILED TO BIT SET. 
js S$S$SSSSSSSSSSSSSSSSSSSS>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
A 003412 000412 BR 2$ :/BR TO END SUBTEST. 
(1) 003414 042777 000010 175754 1$: BIC #B1T3,@ASR :/TRY CLEARING BIT 3. 
(1) 003422 005037 001124 CLR $GDDAT ;/CLEAR S/B FOR TYPEOUT IF ANY. 
(1) 003426 017737 175744 001126 MOV @ASR , $BDDAT ;/NOW READ IT BACK. 
YE 003434 001401 BEQ 2$ :/1F ZERO - NO ERROR! 
(2) 
|: SS$SSSSSSSSSESSSSSSSESSSSS>>> ERROR <<<$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003436 104002 ERROR 2 ;7ERROR - CLOCK A STATUS REGISTER. 
ae :/BIT 3 FAILED TO CLEAR. 
(2) 


| -S$SSSSSSSSSSSSSSSSSSSSS$S>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003440 2$: 


Nee SS SS SPW EF VNU RUS 


Ct ee ee ee 
ht os SS ees 
eee Nee ae ee 


003534 


0035 36 


ISAGNOSTIC MAI 
11 08-A 


AUG-79 


000004 
012737 


104002 


NDE C=11=CVKWA=C 


10:45 


000100 
175722 
000004 


000004 
175702 
001124 


175656 
001126 


di 306 (1063) 


L 
08-AUG-79 


3 
10:53 PAGE 1-19 


*TEST THAT CLOCK A STATUS REGISTER BIT 3 CAN BE SET AND CLEARED SEQ 0037 


3/4 


FFARR ARARARAAAARAAAAERRAARARRERRAARAARAAERERARRARAREHERRARERRAREEE 


*TEST THAT CLOCK A STATUS REGISTER BIT 2 CAN BE SET AND CLEARED 
 *CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 


seTEST 12 


:*F/FS OR GATES 


-* 


SRAARAREKARRAAAAAARAKRARKRARRHRRAERAEARARRARAERRRRAARARRAERARHAREH AEE 


rST12: SCOPE 
MOV 


#100,$TIMES 
@ASR 
#B1T2,@ASR 
roy ore 


@ASR , SBDDAT 
ScDDAT. S$BDDAT 


| S$SSSSSSSSSSSSSSSSSSSSES>>> 


ERROR 


2 


;  S$$$SSSSSSSSSSSESSSSS$S$$>>> 


BR 
1$: BIC 


2$ 
#BIT2,aASR 
SGDDAT 
@ASR , $BDDAT 
2s 


;  S$S$SSSSSSSSSESSS$S$S$S$$>>> 


ERROR 


2 


7 SSHSSSSSSSSSSSESSSSSSS$S$>>> 


2$: 


37;D0 100 ITERATIONS 
s/CLEAR THE STATUS REGISTER. 
*/SET BIT 2. 
+ FOR ERROR TYPEOUT _ 
37I1F SO-LETS TRY CLEARING IT. 
ERROR <<<$$S$SSSSSSSSSSSSSSSSSSSSSSSSSSESS 


:7ERROR CLOCK AS STATUS eee 
;/BIT 2 FAILED TO BIT SET 


ERROR <<<$S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
;/BR TO END SUBTEST. 
:/TRY CLEARING BIT 2. 

/CLEAR S/B FOR fa IF ANY. 

“7NOWd READ IT BACK 
:/IF ZERO - NO ERROR! 

ERROR <<<$S$$$SS$SSSSSSSSSSSSSSSSSSSSSSSSS 
;7ERROR - CLOCK A STATUS REGISTER. 
;/BIT 2 FAILED TO CLEAR. 


ERROR <<<S$$S$S$SSSESSSSESSSSSSSSESSSSSSSSSS 


KWV11A DISAGNOSTIC MAINDEC=11-CVKWA-C a 30G6(1063) 08-AUG-79" 10:53 PAGE 1-20 
CVKWAC P11 08-AUG-79 10:45 T12 *TEST THAT CLOCK A STATUS REGISTER BIT 2 CAN BE SET AND CLEARED SEQ 0038 
(1) :/a 
(5) MASRRERESAASZALELLSALALSES ESSERE SERA REAR RRA R RRR RRR RR RRR RAR AAAS DSSS 
(3) :HTEST 13 *TEST THAT CLOCK A STATUS REGISTER BIT 1 CAN BE SET AND CLEARED 
(5)  *CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 
(5) ;*F/FS OR GATES 
3 ; 
(4) FF AAAAAAAAAAAAARARARAERRARRRRRERRRR (PARR RRRSRSARASASSA SARS ALAR SSS S| 
(3) 003536 000004 TST13: SCOPE 
a 003540 012737 000100 001160 MOV #100, $TIMES ::D0 100 ITERATIONS 
(1) 003546 005077 175624 CLR @ASR ;/CLEAR THE STATUS REGISTER. 
(1) 003552 052777 000002 175616 BIS #B1T1,@ASR :/SET BIT 1. 
(1) 003560 012737 000002 001124 MOV #B1T1,$GDDAT :/SET FOR ERROR TYPEOUT S/B. 
(1) 003566 017737 175604 001126 MOV @ASR, SBDDAT ;/READ THE STATUS REGISTER. 
(1) 003574 023737 001124 001126 CMP $GDDAT,$BDDAT :/DID BIT 1 AND ONLY BIT 1 SET? 
+3) 003602 001402 BEOQ 1$ 371F SO-LETS TRY CLEARING IT. 
7s SSS$SSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003604 104002 ERROR 2 ;7ERROR CLOCK AS STATUS REGISTER 
2) :/BIT 1 FAILED TO BIT SET. 
js SESSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
is 003606 000412 BR 2$ ;/BR TO END SUBTEST. 
(1) 003610 042777 000002 175560 1$: BIC #B1T1,@ASR :/TRY CLEARING BIT 1. 
(1) 003616 005037 001124 CLR $GDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(1) 003622 017737 175550 001126 MOV @ASR , SBDDAT ;/NOW READ IT BACK 
a 3630 001401 BEQ 2$ :/1F ZERO - NO ERROR! 
(2) 
js S$SSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003632 104002 ERROR 2 ;7ERROR - CLOCK A STATUS REGISTER. 
oat ;/BIT 1 FAILED TO CLEAR. 
(2) 


s  SSSSSSSSSSSSSSSSSSSSSSSS$>>> ERROR <<<S$$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
003634 2$: 


WrAA 
Ww 
—w ww 


KWV11A 


CVKWAC. 


Ce ee ee ee 
De  ) 
ee Ne Nee ee te ee 


a et 
ee  ) 
eee Ne twee ee we 


DI 
Pll 


003730 


003732 
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000004 
012737 


104002 


000010 


000100 
175526 
000001 


000001 
175506 
001124 


000001 
001124 
175452 
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175462 


001126 


i 30G6( 1063) 


N 
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10: 
*TEST THAT CLOCK A STATUS REGISTER BIT 1 CAN BE SET AND CLEARED 


s/f 


J AAAAAAARAAAAERARAARARARAAAEEAAARARREARAAERRERARARARAARRRRRRERREAREH 


*TEST THAT CLOCK A STATUS REGISTER BIT 0 CAN BE SET AND CLEARED 
: *CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 


seTesT 14 


:*F/FS OR GATES 


- 


Wen PARRA ERARAARRRSSASLARSARARAS ARRAS RRR EARARARASAS ERR RAR RRR RASA SAS S| 


T5114: SCOPE 
MOV 


#100,$TIMES 


#B1TO,@ASR 
#B1T0,$GDDAT 
@ASR, $BDDAT 
as 


5 S$S$SSSSSSSSSSSSSSSSSSSS>>> 


ERROR 


2 


|  S$S$SSSSSSSSSSSSSSSSSSS$S>>> 


BR 
1$: BIC 


2s 
#B1T0,@ASR 
$SGDDAT 
emai 


5 SS$SSSSSSSSSSSSSSSS$SSESS$>>> 


ERROR 


2 


5 SS$SSSSSSSSSSSSSSSSSSSS$S$>>> 


es: 


-RADIX 8 


3:D0 100 ITERATIONS 


/CLEAR THE STATUS REGISTER. 
:/SET BIT O. 

:/SET FOR ERROR TYPEOUT S/B. 
;/READ THE STATUS REGISTER. 
;/DID BIT 0 AND ONLY BIT 0 SET? 
:/I1F SO-LETS TRY CLEARING IT. 


ERROR <<<$$S$$SSSSSSSSSSSSSSSSSSSSSSSSSESS 


;7ERROR CLOCK AS STATUS REGISTER 
;/BIT 0 FAILED TO BIT SET. 


ERROR <<<$$$SS$SSSSSSSESSSSSSSSSSSSSSSSSS 
;/BR TO END SUBTEST. 
;/TRY CLEARING BIT 0. 
:/CLEAR S/B FOR TYPEOUT IF ANY. 
;/NOW READ IT BACK. 
:/1F ZERO - NO ERROR! 

ERROR <<<$S$SS$SS$SSSSSSSSSSSSSSSSSSSSESSS 
;7ERROR - CLOCK A STATUS REGISTER. 
;/BIT 0 FAILED TO CLEAR. 


ERROR <<<S$$S$S$$SSSS$SSSSSSSSSSSSSSESSSSSSSS 


SEQ 0039 





KWV11A DISAGNOSTIC MAINDEC-11-CVKWA-C 


CVKWAC .P11 

385 
(5) 
(4) 
(4) 
4 003732 
(1) 003734 
(1) 003740 
(1) 003746 
A 003754 
(1) 003762 
(1) 003770 
(1) 
(2) 
(1) 003772 
(1) 
(2) 
(1) 003774 
(1) 
(1) 003776 
(1) 004004 
(1) 004010 
(1) 004016 
(1) 
(2) 

* 006020 


004022 


08-AUG-79 


017737 


023737 
001402 


104003 


104003 


10:45 


175440 
125252 
001124 
175420 


001124 


125252 


001124 
175424 
001126 


001126 


175374 
001126 


B 4 
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114 *TEST THAT CLOCK A STATUS REGISTER BIT O CAN BE SET AND CLEARED 


SF RAARAAARRARAEAARAARAAARRERAARARAARAARRRARAARAERAAAAARARAAAAERAREE 


TTEST 15 *TEST THAT PATERN 125252 WILL SET AND CLEAR IN BUFFER REG. 


SL XAAAAARAARAAAARRAAREARREARAERARRARAERARARARARRARAARRAARRAARRARREREE 


TST15: SCOPE 


CLR @ABR /CLEAR THE BUFFER R 

MOV #125252, $GDDAT 3 /RE CORD PATTERN: 135952 , 
MOV SGDDAT , @ABR ;/SET PATTERN IN y “ap REG. 
MOV @ABR , SBDDAT ;/READ THE BUFFER REG 

CMP $GDDAT,SBDDAT ;/DID THE PATTERN si = 
BEQ 1$ ;7YES-TRY CLEARING I 


|: SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 3 ;7ERROR PATTERN 125252 FAILED TO 
:/SET PROPERLY IN BUFFER REG. 


5 S$SSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSESSSSSSSSSSSSSSSSSSSSSSS 


BR 2$ :/GOTO SCOPE LOOP. 
1$: BIC #125252, @ABR 7;/7TRY CLEARING PATTERN. 
CLR $GDDAT ;7EXPECT ZERO BACK. 
MOV @ABR , SBDDAT ;/READ BUFFER REG.,WAS IT ZERO? 
BEQ 2$ :7YES-NEXT TEST. 


|: S$S$SSSSSSSSSSSSSSSSSSSS>>> ERROR <<<$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 3 ;/BUFFER REG. COULD NOT BE LOADED 
:/TO A ZERO. 


; SSSSSSSSSSSSSSSSSSSSSESSES>>> ERROR <<<$S$SSS$SSSSSSSSSSSSSSSSSSSSSSSSSS 
cs: 


SEQ 0040 
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(5) LRA RRR REE REE EEE EERE RRR 

(4) *TEST 16 *TEST THAT PATERN 052525 WILL SET AND CLEAR IN BUFFER REG. 
(4) SRR RRR REAR ERE RE RREREERERERR ERR RRE ER ERERE RE e 

(3) 006022 000004 TST16: SCOPE 





(1) 004024 005077 175350 CLR @ABR :/CLEAR THE BUFFER REG 

(1) 006030 012737 052525 001124 MOV #052525,$GDDAT :/RECORD PATTERN: 052525 . 

(1) 004036 013777 001124 175334 MOV $GDDAT , @ABR :/SET PATTERN IN BUFFER REG. 
ty 006044 017737 175330 001126 MOV @ABR , SBDDAT ;/READ THE BUFFER REG. 

(1) 004052 023737 001124 001126 CMP SGDDAT,SBDDAT ;/DID THE PATTERN SET OK? 
4 004060 001402 BEQ 1$ :7YES-TRY CLEARING IT. 

(2) 





7  S$SSSSSSSSSSSSSSSSSSSSSSE>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSESS 


(1) 004062 104003 ERROR 3 ;7ERROR PATTERN 052525 FAILED TO 
(1) ;/SET PROPERLY IN BUFFER REG. 


5: S$S$SSSSSSSSSSSSSSSSSSSS$>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 












as 004064 000412 BR 2$ :/GOTO SCOPE LOOP. 
(1) 004066 042777 052525 175304 1$: BIC #052525 ,@ABR :/TRY CLEARING PATTERN. 
(1) 004074 005037 001124 CLR SGDDAT :7EXPECT ZERO BACK. 
(1) 004100 017737 175274 001126 MOV @ABR , SBDDAT :/READ BUFFER hay WAS IT ZERO? 
Hh 004106 001401 BEQ 2s 77YES-NEXT TEST 
(2) 
5: S$SSSSSSSSSSSSSSSSESSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 004110 104003 | ERROR 3 nb an? REG. COULD NOT BE LOADED 
33 /TO A ZERO. 
;  SS$SSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 004112 2$: 
(1) 
388 
389 
390 -SBTTL * 
391 -SBTTL * PHASE 2 ADVANCED BASIC LOGIC TESTS 


-SBITL * 


D 4 
KWV11A DISAGNOSTIC MAINDEC=11-CVKWA=C MACY11 30G(1063) 08-AUG-79 10:53 
CVKWAC.P11 08-AUG-79 10:45 117 *TEST THE LOW BYTE OPERATION OF * cLock's STATUS REGISTER — SEQ 0042 


s SSSSSSSSSSSSSSSSSSSESSSS>>> ERROR <<<$S$H$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
427 004164 1$: 


404 LARA AA RARER RERERERARREARERRAARERETRRAAERERRRRRRERRRA EH 
(3) seTEST 17 *TEST THE LOW BYTE OPERATION OF CLOCK'S STATUS REGISTER 
(4) i* 
(4) s*WE CAN SUCCESSFULLY WRITE EVERY BIT IN STATUS REG A 
(4) >*NOW LETS CHECK THE BYTE OPERATION OF THIS REGISTER. 
(4) : 
(4) 
(3) FL RAARARARAARAARAARRAKEEERRERAARRARAERRERRARRAREARRARARRERERRARRERR ED 
(2) 004112 000004 TST17: SCOPE 
i 004114 012737 000050 001160 MOV #50, $TIMES ::D0 50 ITERATIONS 
406 004122 005077 175250 CLR @ASR MAKE SURE THE STATUS REGISTER IS CLEAR. 
407 004126 112777 127677 175242 MOVB #127677,@ASR TRY WRITING ALL BITS IN THE 
408 i STATUS REGISTER. LOGIC SHOULD PREVENT IT 
409 FROM BEING WRITTEN INTO BECAUSE 
si “WE ARE USING A DATOB INSTRUCTION. 
412 006134 017777 175236 174764 MOV @ASR, a$ADDAT NOW EXAMINE THE 
413 STATUS REGISTER. 
414 004142 013737 001126 001124 MOV $BDDAT, SGDDAT FIX $GDDAT FOR ERROR TYPEOUT IF 
It 004150 105037 001125 CLRB $GDDAT+1 ANY RROR HAS OCCURRED, UPPER BYTE CLEARED. 
417 006154 105737 001127 TSTB $BDDAT +1 ARE ANY BITS IN THE UPPER BYTE 
418 OF THE STATUS REGISTER SET? 
th 004160 001401 BEQ 1$ :;BRANCH NEXT TEST IF UPPER BYTE=0. 
421 
: SSSSSSSSSSSSSSSSSESSES$ES>>> ERROR <<<S$$S$ESSSSSSSSSSSSSSSSSSSSSSSSSS 
422 004162 104001 ERROR 1 ERROR - WROTE INTO UPPER BYTE OF 
423 :CLOCK'S STATUS WHEN 
os :DOING A DATOB TO THE LOW BYTE. 
426 
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004244 


004246 


08-AUG-79 


000004 
012737 
005077 
005237 
112777 


005337 
017737 


104001 


10:45 


000050 
175176 
001376 


177313 


001376 
175154 


001126 


001160 


175164 


091126 
001124 
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*TEST THE HIGH BYTE OPERATION OF A'S STATUS REGISTER 


Wen ARERERRASAAARAARASASAAAARASESASLARARRRARARARAR ARRAS SRRRRSR RSLS SS SI 


TEST 20 *TEST THE HIGH BYTE OPERATION OF A'S STATUS REGISTER 


“* 
;*wE CAN SUCCESSFULLY WRITE EVERY BIT IN STATUS REG A 
>*NOW LETS CHECK THE BYTE OPERATION OF THIS REGISTER. 
-_ 


Wb RARRRASAAARASALSLSLALSASAASAR SALAS A SR ARAA RASS RRR RR RRR RRA RASA SAS S| 


TST20: SCOPE 
MOV 


450, $TIMES 
CLR @ASR 
INC ASR 


MOVB #177313,@ASR 


DEC ASR 


MOV @ASR , $BDDAT 
MOV $BDDAT , $GDDAT 
CLRB $GDDAT 


;:D0 50 ITERATIONS 
;CLEAR THE STATUS REGISTER. 


sADD #1 TO THE STATUS REGISTER'S ADDRESS 
7SO_ THAT WE WILL BE WRITING INTO 
; THE HIGH BYTE. 


TRY WRITING ALL BITS IN THE STATUS 
REGISTER. LOGIC SHOULD PREVENT THE LOW 
:BYTE OF THE STATUS REGISTER FROM 

[BEING WRITTEN INTO BECAUSE WE ARE USING 
7A DATOB INSTRUCTION WITH AOO SET. 


:FiX ADDRESS OF - STATUS REGISTER ADDR. 
;SO WE CAN LOOK AT THE WHOLE WORD. 

[READ BACK WHAT THE STATUS REG. CONTAINS 
FIX SGDDAT FOR ERROR TYPEOUT IF AN ERROR 
SOCCURRED, LOWER BYTE CLEARED. 

:1S LOWER BYTE CLEAR? 

;BR IF YES TO NEXT SUBTEST. 


;  S$S$SSSSSSSSSSSSSSSSSS$S>>> ERROR <<<$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 1 


;ERROR - WROTE INTO LOWER BYTE 
OF CLOCKS STATUS REGISTER WHEN 
;DOING A DATOB TO THE HIGH BYTE. 


5 S$SSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 


SEQ 0043 


KWV11A DISAGNOSTIC MAINDEC=11=CvkWA=C MACY11 306(1063) 08-AUG-79" 10: 53 
CVKWAC P11 T21 


Fe ee ee ee le ee a et 
a ot st I 
eee Nee ee ee ee 


004 372 


004 374 


08-AUG 


000004 
012737 


005077 
012777 


052777 
012737 
017746 


013777 


052777 
017737 


012677 
005737 


023737 
001401 


104005 


-79 10:45 


000100 


175114 
125252 


000001 
125252 


001424 


001000 
175030 
175020 
001126 


001124 


001160 


175110 


175100 
001124 


001424 
001424 
175040 


175032 
001126 


001126 


PAGE 6 
*TEST CLOCK'S COUNT REGISTER WITH 125252 PATTERN 


5 RRR ERRARERRARARERAAEAARRERREAEKEKEEREE ERE Ee 


Se TEST 21 *TEST CLOCK'S COUNT REGISTER WITH 125252 PATTERN 


PPAR RRRERRRRASRLASRSSSSESERASESRR RES SESE SRR RA RASA RAR ARERR RSA A RSE 


T$T21: SCOPE 


MOV #100, $TIMES 3:D0 100 ITERATIONS 


CLR @ASR SELECT MODE 0. 

MOV #125252, @ABR [LOAD THE BUFFER REGISTER WITH 
SPATTERN 125252. IT WILL BE 
; TRANSFERRED TO THE COUNT REGISTER 
SSINCE THIS IS MODE 0. 


BIS #BITO,aASR ‘SET GO BIT(ALLOWS BUFFER-COUNT REG XFER). 
MOV #125252,$GDDAT :SET EXPECTED ue PATTERN IN CASE OF 
“NEED OF ERROR TYPEOU 
MOV aAsR, = (8) :/SAVE CSR 
MOV (6) ,$TMP3 :/GET CSR. 
BIC n7e07, STMP3 :/SAVE RATE BIT 


BIS #81T11!BIT2!BITO, STMPS 3/SET mOdE 2. NO RATE,DISABLE INTERNAL OSC 


MOV $IMP3,@ASR ;/LOAD CSR 
:/THIS MUST BE DONE IN 
:/ORDER TO XFERR es 


:/TO BUFFER ON ST2. 
BIS #B1T9,@ASR ;/GENERATE ON ST2 PULSE 
MOV @ABR , $BDDAT ;7READ THE PRESET BUFFER, 


;/PREVIOUS COUNTER 


MOV (6)+,@ASR :/CONTENTS ARE IN $BDDAT. 

TST $ADDAT > /RESTORE CSR 

CMP SGDDAT.$BDDAT  ;DID ALL THE BITS AND NO OTHER BITS 
=COME THROUGH? 

BEQ 1$ [BR IF YES TO NEXT TEST. 


7 SSSSSSSSSLSSSSSSSSSSESES>>> ERROR <<<S$$SSSSSSHSSSSSSSSSSSSSSSSSSSSSS 


ERROR 5 DATA ERROR CLOCK - PATTERN °125252"" 
;FAILED TO TRANSFER PROPERLY BETWEEN 


;BUFFER AND CUUNT REGISTERS. 


j SSSSSSSSSSESESSSSSSSSSSES>>> FRROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 


SEQ 0044 


















08-AUG- 


000004 
012737 


005077 
012777 


052777 
012737 
017746 


- 013777 


052777 
017737 


012677 
005737 


023737 
001401 
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000050 


174766 
052525 


000001 
052525 
174740 


00400 
091424 


001000 
174702 


174672 
001126 


001124 
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001160 


174762 


174752 
001124 


001424 
001424 
174712 


174704 
001126 


001126 
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-_" 30G(1063) 08-AUG-79 10:53 Ba 


*TEST CLOCKS COUNTER REGISTER nuit 052525 PATTERN SEQ 0045 
SeTEST 22 *TEST CLOCKS COUNTER REGISTER WITH 052525 PATTERN 
SL AAARARAAARAAARAARERARRERERARRRARRRRREARRARRAAARERARRARHARRRRERRER 
TST22: SCOPE 

MOV #50, $TIMES 32D0 50 ITERATIONS 

CLR @ASR ;SELECT MODE 0. 


MOV #052525, @ABR ;LOAD THE BUFFER REGISTER WITH 
:PATTERN 052525. IT WILL BE 

; TRANSFERRED TO THE COUNT REGISTER 
SSINCE THIS IS 


MODE 
BIS #B1T0,@ASR SET BO BIT(ALLOWS BUFFER-COUNT REG XFER). 


MOV #052525,$GDDAT ;SET EXPECTED TO PATTERN IN CASE OF 
“NEED OF ERROR TYPEOUT. 

MOV aAsre -(6) :/SAVE CSR 

MOV STMP3 :/GET CSR. 

BIC 479707 $ MP3 SAVE RATE BITS. 

BIS #BIT11! (8112 ITO. SIMPS :/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 


MOV $TMP3,@ASR /LOAD CSR. 
-/THIS MUST BE DONE IN 
;/ORDER TO XFERR COUNTER 
3/TO BUFFER ON ST2. 

BIS #B1T9,aASR ;/GENERATE ON ST2 PULSE 

MOV @ABR , 3BDDAT ;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 

MOV (6)+,@ASR :/CONTENTS ARE IN $8DDAT. 

TST $BDDAT ;/RESTORE CSR 

CMP SGDDAT,$BDDAT ;DID ALL THE BITS AND NO OTHER BITS 
[COME THROUGH? 

BEQ 1$ ;BR IF YES TO NEXT TEST. 


| SSSSSESSSSSSSSSSSSSSSS$ES>>> ERROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


WehARARARRRERRRRARALRARAARRARSRASARRERRARRARR RR RARRR RRR AAR ALES SD SS | 


ERROR 5 DATA ERROR CLOCK - PATTERN '052525"' 
7FAILED TO TRANSFER PROPERLY BETWEEN 
;BUFFER AND COUNT REGISTERS. 


:  BSSSSSSSSSSSSSSSSSSESE$S$>>> ERROR <<<$S$SSSSSSSSESSSSSSSSSSSSSSSSSSSSS 
1$: 


KWV11A DISAGNOSTIC MAINDEC=11-CVKWA=C 
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004522 
004524 


004532 
0045 3¢ 


004544 
004546 
004554 


004556 


000004 
012737 


005037 
012777 


000005 
017737 
001402 


104002 


0004 13 
005737 
0 
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000005 


001124 
177777 


174624 


001440 
016000 
000006 


001160 


174632 


001126. 


174620 
174610 
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*TEST THAT INIT CLEARS STATUS REGISTER 


SRAHAAARAARAARAAAARAERARHARAARAAARAARAARAAERAARARARRARARRARAAHAAAAEDR 


oTes! 23 


~*TEST THAT INIT CLEARS STATUS REGISTER 


TESTING OF THE INIT LOGIC AS RECEIVED FROM THE QBUS AND BUFFERED 
:*T0 STATUS REGISTER F/FS. 


FERARAAAARARAARARARARAARRARRRARRARARAARARERAERAAHARARARRARARERAARARE 


8 


7 SSSSSSSSSSSSSSSSSSS$SSS$S$$>>> ERROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ST23: SCOPE 
MOV 


CLR 
MOV 


RESET 
MOV 
BEQ 


ERROR 


#5 .STIMES 


$GDDAT 
#177777 ,@ASR 


@ASR , $BDDAT 
1$ 


2 


;;D0 5 ITERATIONS 


sEXPECTED DATA IS ZERO 
ZSET ALL BITS IN THE STATUS REG. 


SYSTEM INITIALIZE. 


:READ THE STATUS REG.. ALL BITS SHOULD 
“HAVE BEEN CLEARED BY INIT. 
“BR IF YES TO NEXT TEST. 


ZERROR - SYSTEM INIT FAILED TO CLEAR 
sSTATUS REGISTER CLOCK A. 


; SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 


BR 


TST24 
ter 


#6 
TST24 


3: TEST EXTERNAL SIGS? 


ST24 
weiT 1181712: Biri, -@DR2 ENABLE ST1, S12 TO LATCH. 


S12. OVERFLOW SET 


j  SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
s INIT FAILED TO CLEAR 


ERROR 


6 


1,ST2, AND/OR OVERFLOW 


| ESSSSESSSSSSSSSSSSSSSSESS>>> ERROR << <$S$SSSSSSSSSSSSSSSSSSSSSSSSSS SESS 





KWV11A DISAGNOSTIC MAINDE C=11=CVKWA=C 
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000004 
012737 


005037 
012777 


000005 
017737 
001401 


106003 


005737 
001403 
052777 
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000005 


001124 
177777 


174540 


001440 
016000 


001160 


174546 


001126 


174534 
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*TEST THAT INIT CLEARS BUFFER REGISTER 


VOR PRARRRRRSSALSSRSSAESELASAAERAR ARR RRR RRR RR RR RASA RRR RRR RRR ARERR SDSS 


:*TEST 24 


*TEST THAT INIT CLEARS BUFFER REGISTER 


TeTHIS TEST IS DESIGNED TO SEC IF “INIT H"" 
;*CLEARS THE BUFFER REGISTER. 
; KNOW IT CLEARS THE STATUS REG. 


WE ALREADY 


TEP PRS ERRRRRRRRRER RRR RR RR RRR RRA RR RRR RRR RRR RRR RRR RRR RR RRR RRR DSSS DD 


TS124: 


SCOPE 
MOV 


CLR 
MOV 


RESET 
MOV 
BEG 


#S,STIMES 


$GDDAT 
#177777 ,@ABR 


@ABR , SBDDAT 
1$ 


3:D0 5 ITERATIONS 


;CLEAR EXPECTED DATA 
SSET ALL BITS IN THE BUFFER REGISTER. 


; ISSUE SYSTEM INITIALIZE. 
;READ THE BUFFER REGISTER, ALL BITS 


;SHOULD HAVE BEEN CLEARED BY INIT. 
7BR IF YES TO NEXT SUBTEST. 


| SESSSSESSSSSSSSSSSSESSSS>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSESSSSS 


ERROR 


3 


ERROR - SYSTEM INIT FAILED 
;TO CLEAR BUFFER REGISTER A. 


| SSSSHESSSSSSSSSSSSSSSSSSE>>> ERROR <<<$$SSSSSSSSSSSSSSSSSSSSSSESSSSESS 


1$: 


TST 
BEQ 
BIS 


EXS 


e TEST EXTERNAL SIGS? 


TST25 
#BITITIBITI2! Brio, @DR2 ; ENABLE THEM 


SEQ 0047 


KWV"1A DISAGNOSTIC MAINDEC=1i-CvKWA-( 


CVKWAC P11 


004 706 


000004 


012777 
052777 


005777 
100402 


104001 


000410 
005737 
001405 
032777 
001001 


104006 
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000001 
001000 


174472 


001440 
000004 


174504 
174476 


174466 
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*TEST THE SETTING OF MAINTENANCE ST2 IN CLOCK BIT 15 TO SET SEQ 0048 
LRA AAA RARE RARE RAR ERE RERERERE ARE REEERERRRRE AREA RRR ERREREE SAREE ES 
i*TEST 25 *TEST THE SETTING OF MAINTENANCE ST2 IN CLOCK BIT 15 TO SET 
«PAPER ARERR HERRERA REEREREREARRERREEEREREEEERE EERE EERE REE 
75125: SCOPE 
MOV #1 ,@ASR ;SET THE GO BIT(ENABLES ST2 TO SET FLG). 
BIS #B1T9,@ASR SET MAINTENANCE ST2. 
1ST @ASR ;DID BIT15 (ST2 FLAG) SET? 
BM! 1$ ;BR IF YES = NEXT TEST 


j SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 1 ERROR - MAINTENANCE ST2 (BIT9) 
;DID NOT SET BIT15 (ST2 FLAG). 


| SSSSSSSSSSSSSSSSSSSSESSSS>>> ERROR <<<$$S$SSSSSSSSSSSSSSSSSSSSSSSSSESS 


BR TST26 4 
1$: TST EXS ; TEST EXTERNAL SIGNALS? 
BEQ TST26 is 
BIT #B1T2,aDR DID EXTERNAL ST2 GET SET? 
BNE TST2 sé 
: : SSSSSSSSSSSSSESSSESSESSS>>> ERROR <<<$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 :ST2 OuT - DETECTED 


:BY TESTO 
| ESSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<$S$SSH$SSSSSSSSSSSSSSSSSSSSSSSSSS 





KWV11A DISAGNOSTIC MAINDEC<=11=CVKWA=C MACY11 306‘ 1063) 08-AUG-79° 10: 53 PAGE 1 


CVKWAC .P11 08=-AUG-79 10:45 T26 *TEST THAT BITOO IN CLOCK STATUS NEG. WILL SET WHEN BIT13 AND MAIN. ST2 SEQ 0049 
603 Palade! (PRO RRRRBRRASAASZASASALSLESASER SERRE RRR RARE BARRE RSE RAE RES RSE SERS SE ES 
(3) s*TEST 26 *TEST THAT BITOO IN CLOCK STATUS REG. WILL SET WHEN BIT13 AND MAIN. ST2 
(3) J FARRER ARAEAARERAREREREAERERERAEERRAEEAERARARAEERARAAEREERARERERERH 
‘f 004732 000004 TST26: SCOPE 
605 004734 012777 020000 174434 MOV #B1T13,@ASR sSET “‘ST2 ENB COUNTER’ IN CLK STATUS REG. 
606 004742 052777 001000 174426 BIS #B1T9, aASR ;GENERATE A MAINTENANCE ST2. 
607 004750 032777 000001 174420 BIT #31700, @ASR DID BITOO (GO) SET? 
oe 004756 001001 BNE 1$ ‘BR IF YES - NEXT TEST. 
610 
SSSSSSSSSSSSSSSSSSSSSSSESE>>> ERROR <<<$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
611 004760 104001 ERROR 1 ;ERROR - BITOO OF CLOCK'S STATUS REGISTER 
612 ;FAILED TO SET WHEN BIT13 WAS SET 
ot ‘AND A MAINTENANCE ST2 GENERATED. 
4 
615 
; SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$S$SSSSSESSSSSSSSSSSSSSSSSSSSSSS 
eis 004762 005077 174410 1$: CLR @ASR sLEAVE SUBTEST WITH CLOCK CLEAR. 
618 .SBTTL * 
619 -SBTTL *PHASE 3 COUNT TESTS 


-SBTTL * 


KWV11A DISAGNOSTIC Sass A =11=CvKWA-C 
CVKWAC P11 


NRwwwvevwvvvwvuvvw 


Das meen cone hen seme 


ae 
RA 


635 


oO 
& 


637 


005076 


08-AUG 


052777 


017746 
011637 
042737 
052737 
013777 


052777 
017737 


012677 


005737 
001001 


104006 


174402 
174400 
000061 


900400 
174356 
001424 
177707 
004005 
001424 


001000 
174320 


174310 
001126 


174370 
174362 


001424 
001424 
174330 


174322 
001126 


- 30G6(1063) O8-AUG-79 10:53 PAGE 12 
Te? *TEST TO SEE IF THE COUNTER WILL INCREMENT 


J FARRAR ARAAAAAAAARAAAAREEAAARARARARARAARARARRAERAAARRAHARARAAA EHTS 


*TEST 27 *TEST TO SEE IF THE COUNTER WILL INCREMENT 
TOPE RRSSRRASALSLSARSS EERE RRRE EERE SRSA SEER RRR RRR RRR RARER ARRAS ASS AS OS 
1$127: SCOPE 
CLR @ASR :CLEAR THE CSR. 
CLR aABR CLEAR THE BUFFER 
BIS #8115!B1T4!BITO,aASR :SET RATE:ST1, GO. 
BIS #B1T8,aASR ;GENERATE A MAINTENANCE ST1. 
;DID THE CLOCK COUNT? 
MOV @ASR ,-(6) :/SAVE CSR 
MOV (6) ,$TMP3 :/GET CSR. 
BIC #177707,$TMP3 _:/SAVE RATE BITS. 
BIS #81T11!BITZ!BITO,$TMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
MOV $TMP3,aASR ;/LOAD CSR. 
;/THIS MUST BE DONE IN 
:/ORDER TO XFERR COUNTER 
;/T0 BUFFER ON ST2. 
BIS #6119, ASR ;/GENERATE ON ST2 PULSE 
MOV @ABR , $SBDDAT ;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
MOV (6) +,a@ASR :/CONTENTS ARE IN $BDDAT. 
TST $ADDAT ;/RESTORE CSR 
er 1$ :YES, NEXT TEST. 
;  SSS$SS$SSSSSSSSSSSSSSSSSS>>> ERROR <<<$S$S$SSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 ;CLOCK FAILED TO INCREMENT. 


s :SSSSSSSSSSSSSSSSSSSSESES$ES>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1$: 


SEQ 0050 


KWV11A DISAGNOSTIC MAINDEC=11=CVKWA-C MACY11 30G6(1063) 08-AuG-79. 10: 53 PAGE 13 
CVKWAC P17 08-AUG-79 10:45 730 *SEE IF CLOCK WILL COUNT UP FROM A ZERO BASE, RATE:ST1 


REAR REAEEEREAEAAAAEEAEEAEEAAARAAEEKERAAARAAEERAERAERARRERAEERRAETKEEEH 


:STEST 30 *SEE IF CLOCK WILL COUNT UP FROM A ZERO BASE, RATE:ST1 


NOTE: IN THIS TEST, LOOP ON ERROR WILL CAUSE A LOOP 
ON THE FAILING COUT PATTERN; 
WHILE LOOP ON TEST WILL START THE TEST 
AND THE CLOCK FROM ZERO TO THE FAILING COUNT. 


Bete Se Be 


vei eee eee. 


MASBRERERARALASLSASSLLSESASES LASERS RESALES RR RRA RAR RRA SRA A ASSESS 


000004 rata 
012737 001160 #10, STIMES 3;D0 10 ITERATIONS 


ee re 


@ASR :CLEAR THE CSR. 
@ABR CLEAR THE BUFFER REG 

000000 001124 #0,$GDDAT “CLEAR EXPECTED. 
012737 001110 #2$,$LPERR 


052777 174236 : #BITS!BIT4!BITO,@ASR ;START CLOCK, RATE:ST1. 


052777 174230 #B1T8,@ASR GENERATE A MAINTENANCE ST1 
CLOCK SHOULD COUNT ONCE. 
EXS ; TEST EXTERNAL SIGNALS? 


10$ :NO 
174232 #B1T1,aDR YES - DID ST1 GET SET? 
10$ YES 


3: S$SS$$SS$SSSSSESSSSSSSSSSSS>>> ERROR <<<S$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 6 :ST1 OUT NOT DETECTED 
:BY TESTOR 


5 S$S$SSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$S$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSS 


000447 oe BR TST31 i: 
017746 aAs, -(6) :/SAVE CSR 
STMPS :/GET CSR. 
75707 MP3 :/SAVE RATE BITS. 
wart ibtyo'aITO" $TMP3 :/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
MP3,@ASR */LOAD CSR. 


174184 $TMP 
;/THIS MUST BE DONE IN 
:/ORDER TO XFERR COUNTER 
BUFFER T 


:/T0 ON ° 
174146 #B1T9,aASR 3/GENERATE ON ST2 PULSE 
001126 @ABR , SBDDAT ;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
(6) +, @ASR ; CONTENTS ARE IN $8DDAT. 
$BDDAT :/RESTORE CSR 
$GDDAT ;COUNT=OLD COUNT+1 
SGDDAT.SBDDAT :COUNT READ= COUNT EXP"ED? 
2s SYES - SEE IF WE'RE THROUGH. 


js S$SSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 11 CLOCK FAILED TO COUNT UP PROPERLY. 


013777 


SS xs 
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012677 
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08-AUG~ 


052777 
052777 
105777 
100402 


000411 
005737 
001406 
105737 


001440 
170500 
170502 
000040 
000010 


174032 
177777 


000061 
000400 
174004 


001440 
170500 


174100 


170560 


174026 
174016 
174010 
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08-AUG-79. 16: 53 PAGE 13-1 
*SEE IF CLOCK WILL COUNT UP FROM A ZERO BASE, RATE:ST1 SEQ 0052 


; {SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


2s: 


3$: 


tk 


ig 


2$: 


aie 3$ ;GOTO SCOPE LOOP. 

CLR _@ASR 

MOV $GDDAT, @ABR 

TST $GDDAT ZALL_DONE? 

BNE 1$ NO DO NEXT INCREMENT. 
LARA AAARAEEEERAEEEEERREREREERARRRERAREERRARRARERARERR ARREARS 
TEST 31 *TEST THAT OVERFLOW (CSR BiTO7) WILL SET ON OVERFLOW 
FRA A AERA ERR RE RARRAEREAREREREREE RARER 
T31: SCOPE 

TST EXS ;TESTOR MODE ENABLED?? 

BEQ 2$ “NO=THEN SKIP NEXT SECTION OF CODE. 

CLR  a#170500 :CLEAR TESTOR A/D 

TST a#170502 :DUMB READ OF A/D BUFFER. 

BIS #BIT5,@#170500 ENABLE EXTRENAL START OF A/D. 

Mov «#8. , RO SET TIME OUT NUMBER. 

CLR @ASR :CLEAR THE CSR 

MOV = #=1, @ABR SET PRESET BUFFER TO ALL ONES. 

BIS #B1T5!BIT4!BITO,@ASR ;START CLOCK, RATE ST1. 

BIS  #BIT8,@ASR COUNT CLOCK ONCE, OVERFLOW 

SHOULD OCCUR. 
TSTB —@ASR :DID OVERFLOW SET? 
BMI 1$ :YES = THEN NEXT TEST 


5: SSSSSSESSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 


ERROR 6 ERROR - OVERFLOW, CSR BITO? 
FAILED TO SET ON OVERFLOW 
BR TST32 
TST EXS Test EXTERNAL SIGNALS? 
BEQ TST32 
TSTB a#170500 TTF OVERFLOW GOT OUT,IT GAVE A/D START 
: WE" RE LOOKING FOR A/D DONE-DID IT GET SET? 
BMI TST32 
DEC RO :DID WE us ENOUGH TIME?? 
BNE 1$ SNO-THEN WAIT 
;  SSSS$$SSSSSSSSSSSSSSSESSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSESSS 
ERROR 6 OVERFLOW OUT NOT DETECTED 
:BY TESTOR 


; :SSSFSSSSSSSSSSSSSSSESS$SS$S>>> ERROR <<<$SSS$SSSSSSSSSSSSSSSSSSSSSSSSSS 


KWV11A DISAGNOSTIC MAINDEC-11-CVKWA-C 
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005422 
005424 
005430 
005436 
005444 


005452 
005460 


005462 


005464 


005464 
005466 
005472 
005500 
005506 


005514 
005522 


005524 


005526 


08-AUG 


000004 
005077 
012777 
052777 
052777 


032777 
001401 


052777 
052777 


032777 
001001 


104006 


005077 


=79 10:45 


173746 
177777 
000061 
000400 


000001 


173704 
177777 
000063 


000400 
000001 


173644 


173742 
173732 
173724 


173716 


173700 
173670 


173662 
173654 


B 5 
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*TEST THAT OVERFLOW WILL CLEAR THE GO BIT SEQ 0053 
SL RAAAAAAARAAARAREAEREREAERERERARAAERAEREERERARRARERERERRREAA ARETE 
*TEST 32 *TEST THAT OVERFLOW WILL CLEAR THE GO BIT 
: FAAAAAAAAAAAAARAAAAARARARERARERARRAERAAARAARAARERRAERRAERREEHEREE 
TST32: SCOPE 
CLR @ASR sCLEAR THE CSR. 
MOV #-1,@ABR ;PRESET CLOCK TO <1. 
BIS ABITS'BIT4!BITO,@ASR ;START CLOCK, RATE:ST1 
BIS #B1T8,aASR :COUNT ONCE, OVERFLOW 
;SHOULD OCCUR CLEARING 
sENABLE (CSR BITOO) 
BIT #BITO,@ASR ;DID THE ENABLE CLEAR? 
BEQ 1$ sYES - NEXT TEST. 
:  SSSSSSSSSSSSSSSSSSSSSSSS$>>> ERROR <<<$S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 sERROR - OVERFLOW FAILED 
;TO CLEAR ENABLE (CSR BITOO) 
1$: 
LDR REE ER ER ERR EEE EERE EEE ERE ERE EERERE AREER EEE 
i*TEST 33 *TEST THAT GO BIT DOES NOT CLEAR ON OVERFLOW, IF MODE 1 
“edad eatin atacand tee acini liana iainiatainlaiaiaiiada 
18133: SCOPE 
CLR @ASR sCLEAR THE CSR. 
MOV #-1,@ABR ;PRESET BUFFER=ONE COUNT FROM OVERFLOW. 
BIS #63,@ASR sMODE 1, RATE:ST1, GO. 
BIS #B1T8,aASR ;GENERATE MAINTENANCE ST1. 
BIT #B1TO,@ASR :DID ENABLE (GO BIT) CLEAR? 
BNE 1$ *NO (GOOD) NEXT TEST. 
 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 aw BIT CLEARED ON OVERFLOW 
WHEN MODE 1 WAS SELECTED 


|: S$SSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: CLR @ASR 7CLEAR THE CLOCK. 





KWV11A 2 aay 1A MA INDE C=11=CVKWA=C 


CVKWA 


LOLI LOLOL LL 


MONIMININTNININ 2 A Se ee dataset al 


C.P 


005654 


005656 


08-AUG- 


000004 
012737 


005077 
005077 
012777 
005000 
005200 
001376 
017746 
011637 
042737 


052737 
013777 


052777 
017737 


012677 
005737 
001004 


105766 
100401 


104006 


005077 


79 10:45 


001000 
173546 


173536 
001126 


177776 


173514 


001160 


173616 


173556 


173550 
001126 


C 
MACY11 30G(1063) O8-AUG-79 10:53 PAGE 14 
133 *TEST THAT GO BIT DOES NOT CLEAR ON OVERFLOW, IF MODE 1 


5 RARER ARAAARARERAAAARARRARARARRARARARERERAARARHARAAAARERRARRRRRN ED 


S*TEST 34 *TEST THE ABILITY OF CLOCK TO COUNT AT 1MHZ RATE 


:ATHIS TEST IS me ante TO TEST THE CLOCK’S ABILITY 
O COUNT AT 1MHZ RATE. 


—MmAARAARALARSARASASLALALASAAASARELARARARASARRRR SAAR RRSARAR ARRAS SS DI 


At 
$134: SCOPE 
MOV #5, $TIMES 


Py 
. 
e 
. 
Pj 
T 


3;;D0 5 ITERATIONS 


CLR @ASR ;/CLEAR CLOCK 

CLR @ABR :/CLEAR PRESET BUFFE =. 

MOV #B1T0!10,@ASR :/ START CLOCK, MODEO, E: 1MHZ 

CLR RO :/NOW WE'LL DO A LITTLE DELAY. THIS DELAY 
i$: INC RO ;/WILL AMOUNT TO APPROXIMATELY 

BNE 1$ 3/369 MS. 

MOV @ASR ,~(6) /SAVE CSR 

MOV /GET CSR 


(6) ,$TMP3 2 5 
BIC #177707,$1MP3 —: /SAVE RATE BITS. 
BIS #B1T11'BIT2!BITO.$TMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
MOV $TMP3,aASR :/LOAD CSR. 
:/THIS MUST BE DONE IN 

*/ORDER TO XFERR COUNTER 

:/TO BUFFER ON ST2. 

; /GENERATE ON aN S33 PULSE 

/READ THE PRESET BUFFER, 
: /PREVIOUS COUNTER 


BIS #B1T9,aASR 
MOV @ABR , SBDDAT 


MOV (6)+,@ASR ;/CONTENTS ARE IN $8DDAT. 

TST $BDDAT :/RESTORE CSR 

BNE 2$ :/YES ~ NEXT TEST. 

TSTB -2(6) ;7AT HIGH RATE MAY HAVE HAD OVERFLOW 
;/NOTE: CSR HAD BEEN PUT ON STACK. 

BM! 2$ 3/NEXT TEST IF OVERFLOW. 


;  S$SSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 ;/CLOCK FAILED TO COUNT AT 
7 7RATE: 1MHZ 


;  SSSS$SSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSS$SSSSSSSSSSSSSSSSSSSSSSSSSSS 


2$: CLR @ASR ;/CLEAR THE CLOCK. 


SEQ 0054 


Dd 
gS SF aaa A MAINDEC=11=C VKWA=C + 30G(1063) O8-AUG-79 10:53 PAGE 15 
VK 


WAC .P 08-AUG-79 10:45 *TEST THE ABILITY OF CLOCK TO COUNT AT 1MHZ RATE SEQ 0055 
(5) SL RRARARRARARARARAREAERAEAAARARAERREARERERARARERAARARRARARERHREHEE 
(4) TaTEST 35 *TEST THE ABILITY OF CLOCK TO COUNT AT 100KHZ RATE 
(5) 
(5) ‘THIS TEST IS DESIGNED to TEST THE CLOCK'S ABILITY 
oH ;*T0 COUNT AT 100KHZ RA 
) 
45 , SguenenequenseseonebeseeenennredenceseqnenunenornnonEnentont 
(3) 005662 000004 S125: SCOPE 
(2) 005664 012737 000005 001150 MOV #5, STIMES ::D0 5 ITERATIONS 
(1) 
(1) 005672 005077 173500 CLR @ASR :/CLEAR CLOCK 
(1) 005676 005077 173476 CLR @ABR :/CLEAR PRESET BUFFER 
(1) 005702 012777 000021 173466 MOV #B1T0!20,@ASR :/START CLOCK, MODEO, RATE: 100KHZ 
D 005710 005000 CLR RO -/NOW WE'LL DO A LITTLE DELAY. THIS DELAY 
(1) 005712 005200 1$: INC RO :/WILL AMOUNT TO APPROXIMATELY 
) 005714 001376 BNE 1$ +/369 MS. 
( 
(2) 005716 017746 173454 MOV aAsR. $7683 :/ SAVE CSR 
(2) 005722 011637 001424 MOV MP3 i/GET aS 
(2) 005726 042737 177707 001424 BIC Hi7P7 7,$1MP3 RATE BITS. 
(2) 005734 052737 004005 001424 BIS Maiti] Bl yo'aITO. Stees :/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(2) 005742 013777 001424 173426 MOV $TMP3, aASR :/LOAD CSR. 
(2) :/THIS MUST BE DONE IN 
(2) :/ORDER TO XFERR COUNTER 
(2) :/TO BUFFER ON ST2. 
(2) 005750 052777 001000 173420 BIS #B1T9,aASR :/GENERATE ON ST2 PULSE 
(2) 005756 017737 173416 001126 MOV @ABR , $BDDAT :/READ THE PRESET BUFFER, 
(2) ;/PREVIQUS COUNTER 
(2) 005764 012677 173406 MOV (6) +, @ASR :/CONTENTS ARE IN $8DDAT. 
(2) 005770 005737 00112€ TST SBDDAT */RESTORE CSR 
(1) 005774 001004 BNE 2$ */YES ~ NEXT TEST. 
(1) 005776. 105766 177776 TSTB ss =2(6) */AT HIGH RATE MAY HAVE HAD OVERFLOW 
(1) :/NOTE: CSR HAD BEEN PUT ON STACK. 
CD 006002 100401 BMI 2$ :/NEXT TEST IF OVERFLOW. 
(2) 


5s S$SSSSSSSSSESSSSSSSSSSSS$>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSESSSSSSSS 


(1) 006004 104006 ERROR 6 :/CLOCK FAILED TO COUNT AT 
A 7 7RATE : 100KHZ 


5 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


(1) 
a4 006006 005077 175314 es: CLR @ASR :/CLEAR THE CLOCK. 
(1) 


KWV11A DISAGNOSTIC MAINDEC=11=CVKWA-C 
me 0:45 


CVKWAC .P 


Fe ee te tee ta ee te, te te ee a a, et ee et et a ee 


NM = = = 8 AQNQNONYNYNYINININONNINDID 2 OP PS Os OO 
ee NNN Ne eee ae eee eae a es So eS ee ee ee ee ae 


0061 34 


6061 36 


0&-AUG-79 1 


000004 
012737 


013777 


052777 
017737 


012677 
005737 


104006 


005077 


0060005 


173 
173346 
0000 


173256 
001126 


177776 


173234 


001160 


173336 


001424 
001424 
173276 


173270 
001126 


E 
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135 *TEST THE ABILITY OF CLOCK TO COUNT AT 100KKZ RATE SEQ 0056 
FF ARAAAARARARRAAAAARAAARAAAAAIERARARARARAARARAAAARERAARARRARARRAARED 
;*TEST 36 *TEST THE ABILITY OF CLOCK TO CGUNT AT 10KHZ RATE 


:*THIS TEST IS DESIGNED 10 TEST THE CLOCK'S ABILITY 


oe COUNT AT 10KKZ 


° 
2 MABAAARASASAAAASASASARASRARRRRRRRRRRRARARRRRR RRR RRR RRR RAR SRS ERASE 


issues SCOPE 
MOV 


::D0 5 ITERATIONS 


:/CLEAR CLOCK 

;/CLEAR PRESET BUFFER 

:/START CLOCK, MODEO, RATE: 10KHZ 

7/NOW WE'LL DO A LITTLE DELAY. THIS DELAY 


;/WILL AMOUNT TO APPROXIMATELY 
7/369 MS. 


3/SAVE CSR 
3/GET CSR. 
:/SAVE RATE BITS. 


BIS #81111!B1T2!BiTO,.STMP3 2 /SET MODE 2, NO RATE,DISABLE INTERNAL OSC 


/LOAD C 
i/THIS MUST BE DONE IN 
;/ORDER TO XFERR COUNTER 
:/TO BUFFER ON ST2. 

;/GENERATE ON ST2 PULSE 
[/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
:/CONTENTS ARE IN SBDDAT. 
: /RESTORE CSR 
/YES - NEXT TEST. 
“7AT HIGH RATE MAY HAVE HAD OVERFLOW 
;/NOTE: CSR HAD BEEN PUT ON STACK. 
7/NEXT TES? IF OVERFLOW. 


5 S$S$SHSSSSSSSSSSSSSSSSSSE>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


;7CLOCK FAILED TO COUNT AT 
:/RATE:10KHZ 


;  SSSSSSSSSSSSSSSSSSSSSS$ES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSESSSSSSSSSS 


#5, $TIMES 
CLR @ASR 
CLR @ABR 
MOV #B1T0!30,aASR 
CLR RO 
1$: INC RO 
BNE 1$ 
MOV @ASR,~-(6) 
MOV (6) ,$TMP3 
BIC #177707, $1MP3 
MOV $TMP3, aASR 
BIS #BIT9,aASR 
MOV @ABR , $BDDAT 
MOV (6)+,@ASR 
TST SBDDAT 
BNE 2$ 
TSTB = = 2(6) 
BMI 2$ 
ERROR 6 
2$: CLR @ASR 


:/CLEAR THE CLOCK. 


















, 7 
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136 *TEST THE ABILITY OF CLOCK TO COUNT AT 10KHZ RATE 





oben g < 2 ay MAINDEC=$11=CVKWA-C 
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af FF ERAARARAAARAAAAARARARAREARARRARRRAARRAARARARRAARRARAARRRRERRARROD 
(4) TeTEST 37 *TEST THE ABILITY OF CLOCK TO COUNT AT 1KHZ RATE 

( 

(5) i* 

(5) ‘eTHIS TEST IS DESIGNED TO TEST THE CLOCK'S ABILITY 

(3) **T0 COUNT AT 1KHZ RATE. 

(4) ,  enenennnnnannnananenaaneeseensnrenersennnenanqasenenseeeeeeeees 
(3) 006142 000004 1137: SCOPE 

(2) 006144 012737 000005 001160 MOV #5, $TIMES ::D0 5 ITERATIONS 

(1) 

(1) 006152 005077 173220 CLR @ASR :/CLEAR CLOCK 

(1) 006156 005077 173216 CLR @ABR =/CLEAR PRESET BUFFER 

(1) 006162 012777 000041 173206 MOV #B1T0!40,aASR s/START CLOCK, MODEO, RATE: 1KHZ 

oe 006170 005000 CLR RO */NOW WE'LL DO A LITTLE DELAY. THIS DELAY 
(1) 006172 005200 1$: INC RO ;/WILL AMOUNT TO APPROXIMATELY 

(1) 006174 001376 BNE 1$ +/369 MS. 

(2) 006176 017746 173174 MOV aAsR. 378) :/SAVE CSR 

(2) 006202 011637 001424 MOV MP3 :/GET CSR. 

(2) 006206 042737 177707 001424 BIC H7P707, STMP3 /SAVE RATE BITS. ; 
(2) 006214 052737 004005 001424 BIS #B81T11'BIT2!BITO.  STMP3 :/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(2) 006222 013777 001424 173146 MOV $TMP3, aASR :/LOAD CSR. 

(2) :/THIS MUST BE DONE IN 

(2) :/ORDER TO XFERR COUNTER 

(2) +/TO BUFFER ON ST2. 

(2) 006230 052777 001000 173140 BIS #B1T9,aASR :/GENERATE ON ST2 PULSE 

(2) 006236 017737 173136 001126 | MOV @ABR , $BDDAT :/READ THE PRESET BUFFER, 

(2) : :/PREVIOUS COUNTER 

(2) 006244 012677 173126 MOV (6)+,a@ASR :/CONTENTS ARE IN $BDDAT. 

(2) 006250 005737 001126 TST $BDDAT */RESTORE CSR 

(1) 006254 001004 BNE 2$ :/YES = NEXT TEST. 

(1) 006256 105766 177776 TSIB) = = 2(6) :/AT HIGH RATE MAY HAVE HAD OVERFLOW 
(1) :/NOTE: CSR HAD BEEN PUT ON STACK. 
1 006262 100401 BMI 2$ :/NEXT TEST IF OVERFLOW. 

(2) 


7; SSSSSSSSSSSSSSSSSSSSSSSE>>> ERROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1)° 006264 104006 ERROR 6 :7CLOCK FAILED TO COUNT AT 
7 /RATE: 1KHZ 


| /SSHSSSSSSSSSSSSSSSHSSSSS$>>> ERROR <<<S$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 


005077 173106 2$: CLR @ASR =/CLEAR THE CLOCK. 
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FF RAAAAARRRARAAAAAAARRAREARERRRRAKRAARRARARARARARARARARAARRORERRRER 


*TEST THE ABILITY OF CLOCK TO COUNT AT 100HZ RATE 


*THIS TEST IS DESIGNED TO TEST THE CLOCK'S ABILITY 
:*T0 COUNT AT 100HZ RATE. 


: ec ne an eta. "ng 


#5, $TIMES ; :D0 5 ITERATIONS 


@ASR ;/CLEAR CLOCK 
;/CLEAR PRESET BUFFER 


@ABR 
#BITO!5SO,@ASR ;/START CLOCK, MODEO, RATE:100HZ 
RO 3;/NOW WE'LL DO A LITTLE DELAY. 


RO :/WILL AMOUNT TO APPROXIMATELY 
1$ 3/369 MS. 
7h mh ;/SAVE CSR 


MP3 i/GET CSR. 
75707 $ MP3 :/SAVE RATE BIT 


WB] T11 BIT" BITO, $iMP3 3/SET MODE 2. NO RATE DISABLE INTERNAL OSC 


$TMP3,@ASR ;/LOAD CSR 
:/THIS MUST BE DONE IN 
:/ORDER TO XFERR COUNTER 


:/TO BUFFER ON ST 
#B1T9,@ASR :/GENERATE ON ST2 PULSE 
@ABR , $BDDAT ;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
(6)+,@ASR :/CONTENTS ARE IN $B8DDAT. 
$BDDAT :/RESTORE CSR 
2$ :/YES ~ NEXT TEST. 
-2(6) ;7AT HIGH RATE MAY HAVE HAD OVERFLOW 


;/NOTE: CSR HAD BEEN PUT ON STACK. 


2$ 3/NEXT TEST IF OVERFLOW. 


|: S$SSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
6 3/CLOCK FAILED TO COUNT AT 


7; 7RATE:100HZ 


| SSSSSSSSSSSSSSSSSSSSESSESS$>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSESSSSSS$ 


@ASR :/CLEAR THE CLOCK. 
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CVKWAC P11 08-AUG-79 10:45 140 *TEST THE ABILITY OF CLOCK TO COUNT AT 100HZ RATE 
816 
(5) JL AAMAAAAAARAARARARARARARERAAAAARAAARARAAARARRARARERAERAARAAHRAH ED 
4) SeTEST 41 *TEST THE ABILITY OF CLOCK TO COUNT AT LINEFREQ RATE 
(5) 
(5) s* 
(5) _feTHIS TEST IS DESIGNED TO TEST THE CLOCK'S ABILITY 
(3) :*70 COUNT AT LINEFREQ RATE. 
(5) ‘ ; 
(4) , S » quaeneneneneeqneneqnccesinenneeenegseneseerentsessessecoeasoees 
(3) 006422 000004 75141: SCOPE 
(2) 006424 012737 000005 001160 MOV #5,$TIMES ::D0 5 ITERATIONS 
(1) 006432 032777 010000 172500 BIT #BIT12,aSWR : SHALL WE TEST 
(1) : LINE f REQ? 
(1) ' Swi 2=1 
3) 006440 001450 BEQ TST42 33 
(1) 
(1) 006442 005077 172730 CLR @ASR :/CLEAR CLOCK 
(1) 006446 005077 172726 CLR @ABR =/CLEAR PRESET BUFFER 
(1) 006452 012777 000071 172716 MOV #B1T0:70,@ASR . ;/START CLOCK, MODEO, RATE :LINEFREQ 
Bh 206460 005000 CLR RO -/NOW WE'LL DO A LITTLE DELAY. THIS DELAY 
(1) 006462 005200 1$: INC RO ;/WILL AMOUNT TO APPROXIMATELY 
(1) 006464 001376 BNE 1$ +/369 MS. 
(2) 006466 017746 172704 MOV @ASR,-(6) :/SAVE CSR 
(2) 006472 011637 001424 MOV (6), $TMP3 :/GET C CSR. 
(2) 006476 042737 177707 001424 BIC #177707,$TMP3 =: /SAVE RATE BITS. 
(2) 006504 052737 004005 001424 BIS seitis ite: BITO. sIMPS :/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(2) 006512. 013777 001424 172656 MOV $TMP3,aASR :/LOAD CSR. 
(2) :/THIS MUST BE DONE IN 
(2) */ORDER TO XFERR COUNTER 
(2) :/TO BUFFER ON ST2. 
(2) 006520 052777 001000 172650 BIS #B1T9,aASR :/GENERATE ON ST2 PULSE 
(2) 006526 017737 172646 001126 MOV @ABR , SBDDAT :/READ THE PRESET BUFFER, 
(2) , */PREVIOUS COUNTER 
(2) 006534 012677 172636 MOV (6)+,@ASR */CONTENTS ARE IN $BDDAT. 
(2) 006540 005737 001726 IST $BDDAT :/RESTORE CSR 
(1) 006544 001004 BNE 2$ */YES = NEXT TEST. 
(1) 006546 105766 177776 TSTB = =2(6) */AT HIGH RATE MAY HAVE HAD OVERFLOW 
(1) :/NOTE: CSR HAD BEEN PUT ON STACK. 
(1) 006552 100401 QM! 2$ */NEXT TEST IF OVERFLOW. 
(2) 


[ ESSSSSSSSSSSSSESSSSSSSSS>>> ERROR <<<$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


(1) 006554 104006 ERROR 6 3/CLOCK FAILED TO COUNT AT 
Be 7 7RATE:LINEFREQ 
( ; 


;  SSSSSSSSSSSSSSSSSSSSSSES$>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


006556 005077 172614 28: (LR a@ASR :/CLEAR THE CLOCK. 
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20 
COUNT WHEN ‘‘SLAVE IN’ RATE IS SELECTED SEQ 0060 


MOR RRRSRAERERRLASLELALESEARE SESE SERS A RRR ARERR RRR RAR SRSA ARRAS RSS ES SO 


*TEST THAT COUNTER DOESN'T COUNT WHEN ‘‘SLAVE IN’’ RATE IS SELECTED 


:*TEST 42 


MARR RRRRRESARESSLSASSSR RARE SA SARS R SARS RRA RRA RAR RRR RR RS RR RASA SESS OI 


1S$142: 


1$: 


es: 


RT RRR EERE REE RE REREEAERERERERERRREEE 


*TEST THAT THE CLOCK WILL COUNT IN MODE 1 


3$: CLR 
TATEST 43 
TS143: SCOPE 


SCOPE 
MOV 


CLR 
CLR 


BIS 


ERROR 


#20, $TIMES ::D0 20 ITERATIONS 
aasR ZCLEAR C 
@ABR : CLEAR SRESET BUFFER. 
#B1T0,@ASR :SET GO BIT, RATE:'’SLAVE IN’ 
#8118 @ASR :GENERATE A MAINTENANCE STI. 
RO :NOW DO A SHORT DELAY. 
@ASR,-(6) :/SAVE (oR 
(6) ,$TMP3 */GET CSR. 
#177707,$TMP3 =: /SAVE RATE BITS. 
#B1T11'BIT2!BITO.$TMP3 :/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
$TMP3, ASR /LOAD CSR. 
:/THIS MUST BE DONE IN : 
*/ORDER TO XFERR COUNTER 
:/TO BUFFER ON ST2. 
#B1T9,aASR + /GENERATE ON STD PULSE 
@ABR , $BDDAT :/READ THE PRESET BUFFER, 
:/PREVIOUS COUNTER 
(6)+,aASR :/CONTENTS ARE IN $BDDAT. 
$BDDAT * /RESTORE CSR 
2$ ‘IF ANY COUNT, ERROR. 
@ASR =CHECK FOR OVERFLOW 
3$ ‘IF NO OVERFLOW, NEXT TEST 


$GDDAT 


11 


@ASR 


CLEAR FOR TYPEOUT, EXP"D ZERO. 
7 S$SSSSSSSSSSSSSSSSSSESSS$>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSS5555 


CLOCK COUNTED WHEN RATE:"'SLAVE IN’ 
WAS SELECTED. 


| SSSFSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
;CLEAR CLOCK*S CSR. 


;CLEAR THE CSR, 
;PRESET BUFFER REG. 
START CLOCK,RATE:1 MHZ,MODE 1. 


;NOW DO A SHORT DELAY SO THAT THE 
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CVKWAC.P11 08-AUG-79 10:45 143 *TEST THAT THE CLOCK WILL COUNT IN MODE 1 SEQ 0061 

836 006752 001376 BNE 1$ CLOCK CAN COUNT TO OVERFLOW. 

854 006754 105777 172616 TSTB aASR OVERFLOW SHOULD HAVE SET. 

TH 006760 100401 BM] 23 GOTO NEXT TEST IF SO. 

857 

1 SSSSSSSSSSSSSSSSSESSESE$>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
858 006762 104006 ERROR 6 CLOCK FAILED TO COUNT UP AND SET 
+44 OVERFLOW IN MODE 1. 
s :SSSSSSESSSSSSSSSSSSSSEESSE>>> ERROR <<<S$$S$SSSSSSSSSSSSSSSSSSSSSSSSSSE 

861 006764 2$: 

862 

863 

864 .SBTTL * : 

865 .SBITL *PHASE 4 (LOCK INTERRUPT TEST. 

866 .SBTTL * 

867 

875 

876 FF RAATAAAAAAAAAARARRAERARRAREHRKRARERRRARARARERKRERAARRARRARERARERRRE 
(3) i*TEST 44 *TEST THAT THE CLOCK WILL INTERRUPT ON OVERFLOW 
(3) PARR SBRSAASALAAASZA SSSR SES SRS ESSE SERRE SA RRSRR RARER ESR SSR SRR RRR ERR SSS SY 
(2) 006764 000004 7S T44: SCOPE 

iy 006766 012737 000020 001160 ~ MOV #20,$TIMES ::DO0 20 ITERATIONS 

878 

(1) 006774 012746 000340 MOV #340,-(SF) PUT PRIORITY ON STACK. 

(1) 007000 012746 007006 MOV #64$,-(SP) PUT RETURN ADDRESS ON. STACK 

(1) 007004 000002 RT] :DO AN RTI, PUTS PRIORITY IN CPU. 
pit 007006 64$: 

880 007006 005077 172364 CLR @ASR CLEAR CLOCK'S CSR. 

si 007012 012777 177777 172360 MOV #-1,@ABR SET PRESET BUFFER TO ALL ONES. 
883 007020 012777 000161 172350 MOV #161,aASR START CLOCK, RATE:ST1. 

007026 052777 000400 172342 BIS #B1T8,aASR GENERATE A MAINTENANCE ST1. 

= 007034 012777 007074 172340 MOV #1$,aVECT1 SET INTERRUPT ADDR. 

(1) 007042 012746 000000 MOV #0,-(SP) PUT. PRIORITY ON STACK. 

(1) 007046 012746 007054 MOV #65$,-(SP) PUT RETURN ADDRESS ON STACK 

(1) 007052 000002 RTI :DO AN RTI, PUTS PRIORITY IN CPU. 
i 007054 : 65$: 

4 007054 000240 NOP STALL TIME 

(1) 007056 012746 000340 MOV #340,-(SP) z:PUT PRIORITY ON STACK. 

(1) 007062. 012746 007070 MOV #66$,-(SP) -  ;PUT RETURN ADDRESS ON STACK 

(1) 007066 000002 RTI :DO AN RTI, PUTS PRIORITY IN CPU. 
oe 007070 66$: 


J ESSSSSSSSSSSSSSSSSESS$SSS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSS$5555555555 
891 007070 104007 ERROR 7 :CLOCK FAILED TO INTERRUPT. 
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20-2 
*TEST THAT THE CLOCK WIL’ INTERRUPT ON OVERFLOW 
| SSSSSSSSSSSSSSSSSSSSSSSS$>>> ERROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


- BR 2$ 
; ADD #4,S5P ;/ADD #4 TO STACK POINTER. 
28: CLR @ASR ZCLEAR THE CLOCK. 
TARP RBRRABSAASZASLAASAALASLLESSLESALESESSERASALERASRERSERERRRESA RARE SER ERS SS 
TSTEST 45 *TEST THAT ST2 WILL CAUSE AN INTERRUPT 
MARBRARASBAASAASAAZALASLSASRSE SAAR ESSER SRSA RARSRERERARERRRRARRRSA SRR RRR RSS SS | 
+5145: SCOPE 
MOV #340,-(SP) :PUT PRIORITY ON STACK. 
MOV #64$,-(SP) [PUT RETURN ADDRESS ON STACK 
RTI ‘DG AN RTI, PUTS PRIORITY IN CPU. 
64$: 
CLR @ASR ZCLEAR CLOCKS CSR. 
MOV #1$,aVECT2 :SET UP INTERRUPT VECTOR. 
MOV #B1T14'BITO,aASR:SET “INT2’',AND GO BIT 
BIS #BIT9,aASR ‘GENERATE A MAINTENANCE S72. 
MOV #0,-(SP) :PUT PRIORITY ON STACK. 
MOV #65$,-(SP) ‘PUT RETURN ADDRESS ON STACK 
RTI ‘DO AN RTI, PUTS PRIORITY IN CPU. 
65$: 
NOP ZSTALL TIME 
MOV #340,-(SP) :PUT PRIORITY ON STACK. 
MOV #66$,-(SP) =PUT RETURN ADDRESS ON STACK 
RT] [DO AN RTI, PUTS PRIORITY IN CPU. 
66$: 
:  S$SSSSSSSSSSSSSESSSSSSS$>>> ERROR <<<S$$$$SS$ESSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 7 :CLOCK FAILED TO INTERRUPT ON ST2. 
;  SSSSSSSSSSSSSSSESESSSSSSS>>> ERROR <<<$S$S$S$S$SSSSSSSSSSSSSSSSSSSSSSSSSS 
2$ 
1$: 
ADD #4,SP /ADD #4 TO STACK POINTER. 
2$: CLR @ASR Z CLEAR ciOck's CSR. 
.SBTTL * 
“SRiTL *PHASE 5 ADVANCED TESTING 
.SBTTL * 
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146 *TEST THAT THE “‘FOR'’ BIT WILL SET ON 2 ST2'S 


WEAR ARARRRRRRRRRRRRRARARARELASELASARR RAR RL RAR ASA SRSA RAR ARRAS 


Z*TEST 46 sTEST THAT THE ‘FOR’ BIT WILL SET ON 2 ST2°S 


FF AEAARAAARARAARAAAARARARAAARRAARAARERRARARARARARARAARAAERARRARRER 


TST46: SCOPE 


CLR @ASR START WITH CSR CLEAR. 
INC @ASR SET GO BIT. 
BIS #B1T9,aASR : GENERATE THE 1ST ST2 PULSE. 
BIS #B1T9,a@ASR [GENERATE 2ND ST2 PULSE. 
‘THIS SHOULD CAUSE FOR BIT TO SET. 
BIT #B1T12,aASR :D1D FOR BIT SET? 
BNE 1$ - YES=THEN NEXT TEST. 
MOV @ASR, $BDDAT “RECORD CSR. 
MOV #81T15'!BIT12!BIT0, $GDDAT ;RECORD S/B. 
: : S$$$SSSSSSSSSSSSSSSSSSSES>>> ERROR <<<$$SSSSSSSSSSSSSSSSSSSSSSSSSSESS 
ERROR 1 sERROR-"FOR'' BIT FAILED TO SET ON 


70N TWO SUCCESIVE ST2 PULSES. 
;  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<$S$SSSESSSSSSSSSSSSSSSSSSSSSSSSS 
1$: 


Wet AAAAASRAASAARSSALESASARRRRRRARRRRRRARARERSSRRR RR ARR SALE SS ARES SS 


SeTEST 47 *TEST THAT FOR BIT WILL SET ON TWO OVERFLOWS 
ST ee 
1S147: SCOPE 
MOV #2,$TIMES ::D0 2 ITERATIONS 
CLR @ASR :START WITH CSR CLEAR. 
MOV #~1,aABR :PRELOAD BUFFER REG. 
BIS #13,aASR ZSTART CLOCK,MODE 1,1MHZ. 
CLR RO *NOW DO A SHORT DELAY 
1$ INCB-~— RO “DURING THIS DELAY, THE CLOCK WILL 
BNE 1$ SHAVE OVERFLOWED TWICE- 
‘THIS SHOULD CAUSE THE FOR BIT TO SET. 
BIT #B1T12,aASR :DID FOR SET? 
BNE 2$ :YES=-NEXT TEST. 
MOV @ASR, $BDDAT ZNO-RECORD THE CSR. 
MOV #010213, SCDDAT [RECORD S/B. 


|  S$SSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 1 ERROR FOR BIT FAILED TO SET ON 
; TWO SUCCESSIVE OVERFLOWS. 


7 SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2$: 


WER AAEESASARESELASASR SERRA RSE RR RRR RR RRR RR RAR RRR RRR RRR RARER RSA SEED 


**TEST 50 *TEST THAT FOR BIT WILL CLEAR IF GO BIT IS SET 


LL ANAAR ARERR ERA AAEERERAERRARRERAEERRER ERK ReRHeKReRaeaAneedese 


SEQ 0063 
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CVKWAC.P11 08-AUG-79 10:45 150 sTEST THAT FOR BIT WILL CLEAR IF GO BIT IS SET 
® 007350 000004 TST50: SCOPE 
1040 007352 012777 000001 172016 MOV #B1T0,aASR ZCLEAR CSR,SET GO BIT. 
1041 007360 052777 001000 172010 BIS #B81T9.@ASR ‘SET 1ST ST2 PULSE. 
1042 007366 052777 001000 172002 BIS #BIT9,aASR =GENERATE 2ND ST2 PULSE. 
1043 [FOR BIT SETS HERE. 
10n4 007374 042777 000001 171774 BIC #B1T0,a@ASR [CLEAR GO 
1046 007402 052777 000001 171766 BIS #B1T0,aASR ;SET THE ‘GO’ BIT AGAIN - 
1067 :SHOULD CLEAR FOR BIT. 
1049 007410 017737 171762 001126 MOV @ASR, $BDDAT ;READ THE CSR. 
1051 007416 012737 100001 001124 MOV #100001,$GDDAT ;RECORD WHAT CSR S/B. 
1052 007424 032737 010000 001126 BIT #B1T12,$BDDAT :DID FOR BIT CLEAR? 
1053 007432 001401 BEQ 1$ ‘YES NEXT TEST. 
: : S$SSS$ESSSSSSSSSSSSSESSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1055 007434 104001 ERROR 1 :FOR BIT FALED TO CLEAR 
1038 ;WHEN ‘'GO'’ BIT WAS SET. 
:  S$SSESSSSSSSSESSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
is 007436 005077 171734 1$: CLR @ASR ;CLEAR THE CSR. 
1060 FLARE ARR EERE ERREREREREE EERE 
(3) Z*TEST 51 *TEST THAT WE CAN DISABLE THE INTERNAL OSC 
(3) LRA ERE REREREREEREREEEREEERREKEEREERERRERERRER REAR 
(2) 007442 000004 TST51: SCOPE 
1? 007444 012737 000005 001160 MOV #5, $TIMES ::D0 5 ITERATIONS 
1062 007452 005077 171720 CLR @ASR ZCLEAR THE CSR 
1063 007456 005077 171716 CLR @ABR ‘CLEAR THE PRESET BUFFER 
1064 007462 005037 001124 CLR $GDDAT =CLEAR EXPED. 
1066 007466 012777 004000 171702 MOV #81111, @ASR :DISABLE THE INTERNAL OSC. 
1067 007474 052777 000011 171674 BIS #BIT3!BITO, @ASR ;START CLOCK:RATE 1MHZ. 
1068 007502 005000 CLR RO 
1069 007504 105200 1$: INCB RO :DELAY A SHORT TIME. 
1070 007506 001376 BNE 1$ 
1071 007510 017746 171662 MOV aASR Pet :/SAVE CSR 
007514 011637 424 MOV MP3 */GET CSR. 
20 042737 177707 001424 BIC $9550 7,$TMP3 _—_: /SAVE RATE BITS. 
007526 052737 004005 001424 BIS #B1T11'BIT2!BITO.$TMP3 :/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
007534 013777 001424 171634 MOV $TMP3,aASR SR. 


/LOAD C 
:/THIS MUST BE DONE IN 
:/ORDER TO XFERR COUNTER 
R ON STe. 


:/TO BUFFE 
052777 001000 171626 BIS #B1T9,@ASR ;/GENERATE ON ST2 PULSE 
007550 017737 171624 001126 MOV @ABR , SBDDAT ; /READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
007556 012677 171614 MOV (6)+,@ASR ;/ CONTENTS ARE IN $8DDAT. 
007562 005737 001126 TST $BDDAT /RESTORE CSR 
007566 001401 BEQ 2$ NO - GOOD - NEXT TEST. 
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007570 


007572 


007722 


007724 


104011 


005077 


052777 


005200 
001373 


017746 


013777 


052777 
017737 


012677 
005737 
001001 


104011 


005077 
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171606 


000011 
177754 
002000 


171446 


oa" 306 (1063) 


ERROR 


08-AuG-79. 10:53 PAGE 21-2 
*TEST THAT WE CAN DISABLE THE INTERNAL OSC 


7 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


11 


CLOCK DISABLE INTERNAL 
OSC. DID NOT WORK. 


| SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


23: 


CLR 


@ASR 


;CLEAR THE CSR. 


fF ARRAAAAARAEAERAEEEEEERAARREEAERARRRRERRARRARRRARRERRAARRARRAERRRERE 


*TEST THAT CLOCK CAN BE COUNTED USING MAINTENANCE OSC 


J FARRAR AAREAEREHEARREEERRERARRRRRARRRRARRARRERERERRARARRERERE 


-* 
. 


TS 


1$: 


TEST 52 
T52: SCOPE 


@ASR 


#B1T11,@ASR 
#B81T3!B1T0,@ASR 
#-20. ,RO 


#B1T10,a@ASR 

RO 

1$ 

aAsR. Poth) 
MP3 

ni79707 8 


;CLEAR THE CSR. 


;CLEAR THE PRESET BUFFER. 
[DISABLE THE INTERNAL OSC. 
START CLOCK, 1MHZ, GO. 
:SET TO COUNT 20 TIMES 


GENERATE 1 MAINTENANCE OSC. 
SNOTE: AT 1MHZ, IT lee 10 
SMAINT. OSC TO EQUAL 1 COUNT 
:DO 20 MAINTENANCE OSC. 


:/SAVE CSR 


aie tal 
RATE BITS. 


MP3 
#31711 (BIT? BITO. SIMS :/SET MODE 2. NO RATE,DISABLE INTERNAL OSC 


$TMP3,@ASR 


#B1T9,@ASR 
@ABR , $BDDAT 


(6)+,@ASR 
$BDDAT 
2$ 


:/THIS MUST BE DONE IN 
> /ORDER mane 


:/TO ON ST2. 
: /GENERATE ON ST2 PULSE 


/READ THE PRESET BUFFER, 
:/PREVIOUS COUNTER 
:/CONTENTS ARE IN $B8DDAT. 
:/RESTORE CSR 
:YES - NEXT TEST. 


| S$SSSSSSSSSSSSSSSSSSSESE>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS5 


ERROR 


11 


ERROR COULD NOT COUNT USING 
MAINTENANCE OSC. 


| SSSS$SSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSS55555 


23: 


CLR 


@ASR 


;CLEAR THE CSR. 


SEQ 0065 
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53 PAGE 22 
CVKWAC P11 08-AUG-79 10:45 T52 *TEST THAT CLOCK CAN BE COUNTED USING MAINTENANCE OSC SEQ 0066 
1171 
pie 
( 
(5) LER AAAEAA AREER REREEERERERERERERRRERREREREERAERERREA EAE E ES 
(4) s*TEST 53 *TEST THE CLOCK’S 1MHZ DIVIDER 
(4) LEER RA RAARARAERERAREREREE RARER AREER A EE EREEEREER EERE EERE REE 
(3) 007730 000004 TST53: SCOPE 
nH 007732 012737 000005 001160 MOV #5 ,STIMES 7:D0 5 ITERATIONS 
(1) 007740 005077 171432 CLR @ASR i/CLEAR THE CSR. 
(1) 007744 005077 171430 CLR @ABR :/CLEAR THE PRESET BUFFER. 
(1) 007750 052777 004000 171420 BIS #B1T11,@ASR ;/DISABLE THE INTERNAL OSC. 
as 007756 052777 000011 171412 BIS #1!10,@ASR :7ENABLE CLUCK, RATE: 1MHZ 
( 
(1) 
AH 007764 012700 177766 108: MOV #-10.,R0 :/SET TO GENERATE 10 OSC PULSES. 
(1) 007770 052777 002000 171400 1$: BIS #B1T10,@ASR ;/GENERATE ONE OSC PULSE. 
(1) 007776 005200 INC RO :/DONE 10 OSC PULSES? 
th 010000 001373 BNE 1$ ;/NO ~ DO ANOTHER ONE. 
( 
(1) 
(1) 010002 012737 000001 001124 2$: MOV #1,$GDDAT :/SET_ FOR ERROR TYPEOUT - IF ANY. 
(2) 010010 017746 171362 MOV @ASR ,~ (6) 2/SAVE CSR 
(2) 010014 011637 001424 MOV (6) STM aye CSR. 
(2) 910020 042737 177707 001424 BIC #179707.8 MP3 /SAVE RATE BITS. 
(2) 010026 052737 004005 001424 BIS WIT 11 (BIT BITO. STM yl MODE 2, NO RATE,DISABLE INTERNAL OSC 
(2) 010034 013777 001424 171334 MOV STMP3,@ASR OAD CSR. 
2) :/THIS MUST BE DONE IN 
(2) _  ¢/ORDER TO XFERR COUNTER 
(2) ;/TO BUFFER ON ST 
(2) 010042 052777 001000 171326 BIS #B1T9,@ASR ;/GENERATE ON ST2 PULSE 
(2) 010050 017737 171324 001126 MOV @ABR , SBDDAT 3/READ THE PRESET BUFFER, 
(2) :/PREVIOUS COUNTER 
(2) 010056 012677 171314 MOV (6)+,@ASR :/CONTENTS ARE IN SBDDAT. 
(2) 010062 005737 001126 TST SBDDAT ;/RESTORE CSR 
He 010066 013737 001124 001420 MOV SGDDAT , STMPO ;/STMPO USED IN ERROR TYPEOUT. 
at 010074 023737 001124 091126 CMP S$GDDAT,SBDDAT ;/DID CLOCK ADVANCE ONCE? 
3) 010102 001402 BEQ 3$ :/YES = NEXT TEST. 
; ; S$SS$SSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 010104 104011 ERROR 11 37ERROR ON CLOCK1MHZ + a 
(1) :/NOT GENERATED WHEN 10 
ae :/0SC PULSES GENERATED. 
; ; SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 010106 000443 BR 5$ 
(1) 010110 012700 000011 3$: MOV #9.,RO ;/GET THE. NUMBER OF MORE OSC PULSES 
Me :/TO BE GENERATED. 
(1) 610114 052777 002000 171254 4$: BIS #B1T10,@ASR er an ANOTHER OSC PULSE. 
(1) 910122 005300 DEC RO T WE WANT TO CHECK 


C 6 
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08-AUG-79 10 *TEST THE CLOCK'S 1MHZ DIVIDER 
a) 010124 4$ 7/1MHZ PULSE ON 9 OSC PULSES. 
(1) 
(2) 010126 017746 171244 MOV @ASR,-(6) z/SAVE CSR 
(2) 010132 011637 001424 MOV (6) ,$TMP3 :/GET CSR. 
(2) 010136 042737 177707 001424 BIC #177707,$1MP3  :/SAVE RATE BITS. 
(2) 010144 052737 006005 001424 BIS #81T11'BIT2'!BITO,$TMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
(2) 010152 013777 001424 171216 MOV $TMP3,aASR / CSR. 
(2) :/THIS MUST BE DONE IN 
(2) :/ORDER TO XFERR COUNTER 
(2) :/TO BUFFER ON ST2. 
(2) 010160 052777 001000 171210 BIS #B1T9,aASR :/GENERATE ON ST2 PULSE 
(2) 010166 017737 171206 001126 MOV @ABR , SBDDAT :/READ THE PRESET BUFFER, 
(2) :/PREVIOUS COUNTER 
(2) 010174 012677 171176 MOV (6)+,@ASR :/CONTENTS ARE IN $B8DDAT. 
(2) 010200 005737 001126 TST SBDDAT =/RESTORE CSR 
(1) 010204 023737 001124 001126 CMP SGDDAT,$BDDAT  :/WAS ANOTHER 1MHZ PULSE GENERATED? 
() 010212 001401 BEQ S$ :/NO = NEXT TEST. 
:  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<$$$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 010214 104011 ERROR 11 :/WE SEEM TO HAVE GENERATED 
(1) + ANOTHER 1MHZ PULSE ON 
(1) :/ONLY 9 MAINTENANCE 
) :/OSC PULSES. 
:  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ae 010216 005077 171154 S$: CLR @ASR :/CLEAR THE CSR. 
) 
"WB 
( 
(5) J LARA RRR EERE REE EEREKEEK ERE 
(4) . gxTEST $6 - TEST THE CLOCK'S 100KHZ DIVIDER 
(4) SLR RKERE REE ERE EERE 
(3) 010222 000004 1S154: SCOPE 
(2) 010224 012737 000005 001160 MOV #5, $TIMES ::D0 5 ITERATIONS 
(1) 010232 005077 171140 CLR @ASR ;/CLEAR THE CSR. 
(1) 010236 005077 171136 CLR @ABR =/CLEAR THE PRESET BUFFER. 
(1) 010242 652777 004000 171126 BIS #81T11,aASR :/DISABLE THE INTERNAL OSC. 
(1) 010250 052777 000021 171120 BIS #1'20,aASR —s: ENABLE CLOCK, RATE: 100KHZ 
(1) 
(1) 010256 012700 177634 10$: MOV #-100. RO :/SET TO GENERATE 100 OSC PULSES. 
(1) 010262 052777 002000 171106 18: BIS #B1T10,@ASR :/GENERATE ONE OSC PULSE. 
(1) 010270 005200 INC RO :/DONE 100 OSC PULSES? 
(1) 010272 001373 BNE 1$ :/NO = DO ANOTHER ONE. 
Ci? ©. 
(1) 010274 012737 000001 001124 2$: MOV #1, $GDDAT ;/SET FOR ERROR TYPEOUT - IF ANY. 
(2) 010302 017746 171070 MOV @ASR,-(6) :/SAVE CSR 
(2) 010306 011637 001424 MOV (6) ,$TMP3 :/GET CSR. 
(2) 010312 042737 .177707 001424 BIC #177707, $1MP3 = /SAVE RATE BITS. 
(2) 010320 052737 004005 001424 BIS #B1T11'BIT2'‘BITO.$TMP3 ;:/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
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Cae ae ee ee ei ee a el 
nO es Ss SG ss 2 
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(2) 


010326 


010334 
010342 


010350 
010354 
010360 
010366 


010374 


010376 


08-AUG-79 
013777 


052777 
017737 


012677 
005737 
013737 
023737 


001402 


104011 


000443 
012700 


052777 


013777 


052777 
017737 


012677 


001424 


171042 


170762 


001424 
001424 
170724 


170716 
001126 


001126 
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*TEST THE CLOCK'S 100KHZ DIVIDER 


MOV $TMP3,@ASR 


BIS #B1T9,aASR 
MOV @ABR , SBDDAT 


MOV (6)+,@ASR 

TST $BDDAT 

MOV SGDDAT ,STMPO 
CMP SGDDAT , SBDDAT 


BEQ 3$ 


; ; SESSSSSSSSSSSSSSSSSSSSSS$>>> 


ERROR 11 


/LOAD CSR. 
:/THIS MUST BE DONE IN 
:/ORDER TO XFERR COUNTER 
:/TO BUFFER ON STc. 
*/GENERATE ON ST2 PULSE 
/ R 
:/CONTENTS ARE IN SBDDAT. 
S/RESTORE CSR 
*/$TMPO USED IN ERROR TYPEOUT. 
:/DID CLOCK ADVANCE ONCE? 
:/YES = NEXT TEST. 
ERROR <<<$S$S$SS$S$SSSSSSSSSSSSSSSSSSSSSSSESS 
:/ERROR ON CLOCK 100KHZ PUL SE 


;/NOT GENERATED WHE 
;/0SC PULSES GENERATED. 


7: S$S$SSSSSSSSSSSSSSSSSSESS$>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


3$: 


4$: 


5$ 
MOV #99.,RO ;/GET 


BIS #B1T10,@ASR 
RO 
BNE 4$ 


MOV @ASR,-(6) 
(6) ,$TMP3 
BIC #177707, $TMP3 


THE NUMBER OF MORE OSC PULSES 
:/TO BE GENERATED. 


oon ey ANOTHER OSC PULSE. 
WHAT WE WANT TO CHECK 

:/TOOKHE PULSE ON 99 OSC PULSES. 

as CSR 

;/GET CSR. 


/SAVE RATE BITS. 


BIS #81111 !B1T2!BITO. STMP3 ty MODE 2, NO RATE,DISABLE INTERNAL OSC 


MOV $TMP3,@ASR 


BIS #B1T9,@ASR 
MOV @ABR , SBDDAT 


MOV (6) +, @ASR 
TST $BDDAT 
CMP ae 


|  S$SSSSSSSSSSSSSSSSSSSSS$>>> 


ERROR 117 


|: $$$$S$SS$S$S$S$$S$S$5$5$8$>>> 


/LOAD CSR 

3/THIS MUST BE DONE IN 
:/ORDER TO or —— 
:/TO BUFFER ON S 
GENERATE ON sto PUL 

3;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
[/CONTENTS ARE IN S$8DDAT. 
:/RESTORE CSR 

2 /WAS ANOTHER ue PULSE GENERATED? 

3/NO - NEXT TEST 


ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSS595555 
3;/WE SEEM TO HAVE aaa" 
; /ANOTHER 100KHZ SE ON 
/ONLY 99 MAINTENANCE 
[/0SC PULSES. 


ERROR <<<$$S$S$S$SSS$S$S5555555555555585 


SEQ 0068 


KWV11A DISAGNOSTIC 


CVKWAC P11 08-AUG-79 
" 010510 005077 
1174 


ae Ar ARR RRR RR RAR RR RAR A AAR A AAA AAR AAAA RA AOOIOTIOR 


010514 
010516 


010524 
010530 
010534 
010542 


* 010550 


010554 
010562 
010564 


000004 
012737 


052777 


012700 
052777 


013777 


052777 
017737 


012677 
005737 
013737 
023737 


001402 


104011 


10:45 


170662 


176030 
002000 


004 
001424 


001000 
170540 


170530 
001126 
001124 


001124 


001747 


MAINDEC=11=CVKWA=C 


001160 


170634 
170626 


170614 


001124 


001424 
001424 
170550 


170542 
001126 


001420 
001126 


a 306 (1063) 


5$: 


E 
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*TEST THE CLOCK'S 100KHZ DIVIDER 


CLR 


@ASR 


;/CLEAR THE CSR. 


ff RARAAAAAARARARAAAAAARAERREEERARRRERARRARRRRARAAARARAAERERERARRAEE 


*TEST THE CLOCK'S 10KHZ DIVIDER 


MAAR ARRRARASLAAALAASALSLALASLASLERER LAA RA RE RAR ARRAS A RAR RRR ARRAS RAD DD SS 


. 
oa 
a 


TS 


TEST 55 
T55: SCOPE 
MOV 


10$: MOV 


1$: 


2$: 


| S$SSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


| SSSSSSSSSSSSSSSSSSSSSSSS$>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSESSSSSSS 


3$: 


BEQ 


ERRCR 


BR 
MOV 


#5,$TIMES 
aASR 

@ABR 
#B1T11,@ASR 
#1!30,aASR 
#-1000. ,RO 
#B1T10,@ASR 
RO 

1$ 
#1,$GDDAT 
rie -(6) 


STMP3_ 
975507 8 


MP3 
#31711 (BIT2'BITO. SIMPS 


$TMP3,@ASR 


#B1T9,@ASR 
@ABR , SBDDAT 


(6)+,@ASR 
SBDDAT 
$GDDAT , $TMPO 
S$GDDAT , S$BDDAT 
3$ 


11 


5$ 
#999. ,RO 


3:D0 5 ITERATIONS 


;/CLEAR THE CSR. 

:7CLEAR THE PRESET BUFFER. 
;/DISABLE THE INTERNAL OSC. 
;7ENABLE CLOCK, RATE: 10KKZ 


3;/SET TO GENERATE 1000 OSC PULSES. 


: /GENERATE ONE OSC PULSE. 
/DONE 1000 OSC PULSES? 
:7NO - DO ANOTHER ONE. 


;/SET FOR ERROR TYPEOUT - IF ANY. 
:/SAVE CSR 
AW CSR. 
SAVE RATE BITS. 


/LOAD CSR. 

:/THIS MUST BE DONE IN 
:/ORDER TO 7 COUNTER 

O BUFFER ON ST. 
GENERATE ON ST 1 PULSE 
3/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
:/CONTENTS ARE IN S$BDDAT. 
;/RESTORE CSR 
:/$TMPO USED IN ERROR TYPEQUT. 


:/DID CLOCK ADVANCE ONCE? 
3/YES - NEXT TEST. 


;7ERROR ON CLOCK10KHZ PULSE 
;/NOT GENERATED WHEN 1000 
:/0SC PULSES GENERATED. 


3:/GET THE NUMBER OF MORE OSC PULSES 
:/TO BE GENERATED. 


Hy MODE 2, NO RATE,DISABLE INTERNAL OSC 


SEQ 0069 


LOLOL LLL LL LK LO LOO LO LL Pe 


ROS NPONPINGMONGNNDNYNPONI NINN 3 2 SS 
weewvvuvvuevuevvvuvevuvuvevevuvuvny 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
| 
( 
( 
( 


no RR RS Ss DV SS st os SS 
~~ eNO ee oe ww ae we 








010744 
010752 


010776 


011000 


011002 





08-AUG- 
052777 


005300 
001373 
017746 


13777 


052777 
017737 


012677 © 


005077 


000004 
012737 
052777 
052777 
012700 
052777 
005200 
001373 


012737 
017 


002000 


170370 


000005 


170354 
170352 


154360 
002000 


000001 
170304 
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170470 


001424 
001424 
170432 


170424 
001126 


001126 


001160 


170322 


001124 


MACY11 Bt 
155 





4$: BIS #B1T10,@ASR 
DEC RO 
BNE 4$ 


MOV aASR $7683 
BIC 75707, $TMP 


MP3 
BIS #81T11!BIT2!BITO, SIMS 


MOV $TMP3,@ASR 


BIS #B1T9,aASR 
MOV @ABR , $BDDAT 


MOV (6)+,@ASR 


ERROR 11 


6 
10:53 PAGE 224 
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F 
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$BDDAT 
CMP * pe amma 








as yey ANOTHER OSC PULSE. 
WHAT WE WANT TO CHECK 
£7 TOKHZ PULSE ON 999 OSC PULSES. 


3/SAVE CSR 


Aim CSR. 
E RATE BITS. 


OAD 
;/THIS MUST BE DONE IN 
;/ORDER TO XFERR COUNTER 


3/TO BUFFER ON ST2. 
;/GENERATE ON ST2 PULSE 
;/READ THE PRESET BUFFER, 
:/PREVIOUS COUNTER 


:/CONTENTS ARE IN S8DDAT. 

:/RESTORE CSR 

: /WAS ANOTHER + aad PULSE GENERATED? 
3/NO - NEXT TEST 


"; ; SESSESS$SSSSSSSSSSSSSSSSS>>> ERROR <<<S$$$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
;/WE SEEM TO HAVE GENERATED 


: 7ANOTHER 10KHZ PULSE ON 
/ONLY 999 MAINTENANCE 
;/0SC_ PULSES. 


5; SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSESSS 


5$: CLR @ASR :/CLEAR THE CSR. 
FF i adabadabeadadatalabatadebedobnhetabodyioipotabebetededotadetehel-tediotyinbedelaiadaiataliedataiabaladabaiadeiaiade 
*TEST 56 *TEST THE CLOCK'S 1KHZ DIVIDER 
= eR ERERER ERE REE ER ERR RRA 
75156: SCOPE 

MOV #5,$TIMES 3:DO0 5 ITERATIONS 

CLR @ASR :/CLEAR THE C 


@ABR 
BIS #B1T11,@ASR 
BIS #1!40,aASR 


10$: MOV #-10000. ,RO 


1$: BIS #B1T10,@ASR 
INC RO 
BNE 1$ 

2$: MOV #1, $GDDAT 
MUV @ASR ,~(6) 


CSR. 
:/CLEAR THE PRESET BUFFER. 
;/DISABLE THE INTERNAL OSC. 


:/ENABLE CLOCK, RATE: 1KHZ 


:/SET TO GENERATE 10000 OSC PULSES. 


;/GENERATE ONE OSC PULSE. 
: DONE 10000 OSC PULSES? 
;/NO - DO ANOTHER ONE. 


;/SET FOR ERROR TYPEQOUT - IF ANY, 
;/SAVE CSR 


‘TOR MODE 2, NO RATE DISABLE INTERNAL OSC 


G 6 
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CVKWAC P17 08-AUG-79 10:45 156 *TEST THE CLOCK'S 1K4Z DIVIDER SEQ 0071 


(2) 011072 011637 001424 MOV $TMP3 :/GET CSR. 
(2) 011076 042737 177707 001424 BIC #1 135507, $TMP3 _;/SAVE RATE BITS. 
(2) 011104 052737 004005 001424 BIS #81111!B1T2!61T0,$TMP3 :/SET MODE 2, NO RATE DISABLE INTERNAL OSC 
(2) 011112 013777 001424 170256 MOV $TMP3,@ASR /LOAD CSR 
(2) 3/THIS must BE DONE IN 
(2) :/ORDER TO XFERR COUNTER 
(2) 3/TO BUFFER ON ST2. 
(2) 011120 052777 001000 170250 BIS #B179,@ASR ;/GENERATE ON ST2 PULSE 
(2) 011126 017737 1702466 001126 MOV @ABR , SBDDAT :/READ THE PRESET BUFFER, 
(2) ;/PREVIOUS COUNTER 
(2) 011134 012677 170236 MOV (6)+,@ASR :/CONTENTS ARE IN $8DDAT. 
(2) 011140 005737 001126 . TST $BDDAT ;/RESTORE CSR 
ih 011144 013737 001124 001420 MOV SGDDAT , STMPO :/$TMPO USED IN ERROR TYPEOUT. 
(1) 
as 011152 023737 001124 001126 CMP $GDDAT,$BDDAT ;/DID CLOCK ADVANCE ONCE? 
3h 0117360 001402 BEQ 3$ :/YES = NEXT TEST. 
(2) 
|  S$SSSESSSSSSSSSESSSSSSSS$S$>>> ERROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSESS 
(1) 011162 104011 ERROR 11 ;7ERROR ON CLOCK1KHZ PULSE 
(1) ;/NOT GENERATED WHEN 10000 
Ah 3:/0SC PULSES GENERATED. 
(2 
;  SSSSSSSSSSESSSESSSSSSSSSS$>>> ERROR <<<$SS$SSSSSSSSSSSSSSSSSSSSSSSSSESS 
(1) 011164 000443 BR 5$ 
(1) 011166 012700 023417 . 3$: MOV #9999. ,RO ;/GET THE NUMBER OF MORE OSC PULSES 
3 :/TO BE GENERATED. 
( 
(1) 011172 052777 002000 170176 4$: BIS #B1T10,@ASR ;/GENERATE ANOTHER OSC PULSE. 
(1) 011200 005300 ; DEC RO ;/WHAT WE WANT TO CHECK 
A 011202 001373 BNE 4$ :/1KHZ PULSE ON 9999 OSC PULSES. 
(1) 
(2) 011206 017746 170166 MOV @ASR ,~(6) 3/SAVE CSR 
(2) 011210 011637 001424 ‘MOV (6) ,STMP3 :/GET CSR. 
(2) 011214 042737 177707 001424 BIC #177707,$1MP3 _—_: /SAVE RATE BITS. 
(2) 011222 052737 004005 001424 BIS #B1T11!BIT2!BITO,$TMP3 2/SET — 2. NO RATE.DISABLE INTERNAL OSC 
(2) 011230 013777 001424 170140 MOV $TMP3,@ASR OAD CSR 
(2) 3/THIS MUST BE DONE IN 
(2) :/ORDER TO XFERR COUNTER 
(2) ;/TO BUFFER ON ST2. 
(2) 011236 052777 001000 170132 BIS #B1T9,@ASR ;/GENERATE ON ST2 PULSE 
(2) 011244 017737 170130 001126 MOV @ABR , $BDDAT ;/READ THE PRESET BUFFER, 
(2) ;/PREVIOUS COUNTER 
(2) 011252 012677 170120 MOV (6) +,@ASR :/CONTENTS ARE IN $BDDAT. 
(2) 011256 005737 001126 let TST $BDDAT :/RESTORE CSR 
(1) 011262 023737 001124 001126 CMP $GDDAT , SBDDAT vy ANOTHER fag PULSE GENERATED? 
3s 011270 001401 ; BEQ 5$ ;/NO ~ NEXT TEST 
J SSSSSSSSSSSSSSSSSSESSSSS$>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSESSS 
(1) 011272 104011 ERROR 11 ;/WE SEEM TO HAVE GENERATED 
1) ;/ANOTHER 1KHZ PULSE ON 


;/ONLY 9999 MAINTENANCE 
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1) :/0SC PULSES. 
(2) 
: ; / SSSSSSSSSSSSSSSSSSESSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
3h 011274 005077 170076 5$: CLR @ASR ;/CLEAR THE CSR. 
(1) 
1177 Sas ' 
(1) 
(5) PLR EEE ERERRERE ER EREREERERE EKER RRA RRR RE EES 
‘4) s*TEST 57 *TEST THE CLOCK'S 100HZ DIVIDER 
(4) SLUR RERER ERA AERA EERARAREERARERARERERRR RARER RAE RE 


(3) 0113500 000004 TSTS7: SCOPE 
aH 011302 012737 000005 001160 MOV #5, STIMES 3;:D0 5 ITERATIONS 
(1) 
(1) 011310 005077 170062 CLR @ASR ;/CLEAR THE CSR. 
(1) 011314 005077 170060 CLR @ABR ;7CLEAR THE PRESET BUFFER. 
(1). 011320 052777 004000 170050 BIS #B1T11,@ASR :/DISABLE THE INTERNAL OSC. 
at 011326 052777 000051 170042 BIS #1!50,@ASR ;7ENABLE CLOCK, RATE: 100HZ 
) ; 
a3 011334 012701 000012 MOV #10.,R1 
( 
$1? 011340 012700 154360 10$: MOV #-10000. ,RO 3/SET TO GENERATE 10000 OSC PULSES. 
(1) 011344 052777 002000 170024 1$: BIS #81710, @ASR ;/GENERATE ONE OSC PULSE. 
(1) 011352 005200 INC RO : /DONE 10000 OSC PULSES? 
as 011354 0013573 BNE 1$ /NO - DO ANOTHER ONE. 
(1) 011356 005301 DEC R1 
An 071360 001367 BNE 10$ 
( 
(1) 011362 012737 000001. 001124 A$: MOV #1, $GDDAT 3/SET FOR ERROR TYPEOUT - IF ANY. 
(2) 011370 017746 170002 MOV @ASR,~(6) ;/SAVE CSR 
(2) 011374 011637 001424 MOV (6) ,STMP3 3:/GET CSR. 
(2) 011400 042737 177707 001424 BIC #177707,$TMP3 _—_: /SAVE RATE BIT 
(2) 011406 052737 004005 001424 BIS #81T11'BIT2:!BITO.$TMP3 ;/SET mObE 2. NO RATE,DISABLE INTERNAL nae 
(2) .011414 013777 001424 167754 MOV $TMP3,@ASR ;/LOAD CSR 
(2) ;/THIS MUST BE DONE IN 
(2) :/ORDER TO XFERR COUNTER ' 
(2) :/TO BUFFER ON ST 
(2) 011422 052777 001000 167746 BIS #B1T9,aASR :/GENERATE ON ST2 PULSE 
(2) 011430 017737 167744 001126 MOV @ABR , SBDDAT ;/READ THE PRESET BUFFER, 
(2) ;/PREVIOUS COUNTER 
(2) 011436 012677 167734 MOV (6) +,@ASR :/CONTENTS ARE IN $BDDAT. 
(2) 011442 005737 001126 TST $BDDAT :/RESTORE CSR 
Ah 011446 013737 001124 001420 MOV SGDDAT,$TMPO :/$TMPO USED IN ERROR TYPEOUT. 
ys 011454 023737 001124 001126 CMP $GDDAT,$BDDAT ;/DID CLOCK ADVANCE ONCE? \ 
( 
ae 011462 001402 BEQ 66$ 3/YES - NEXT TEST 
;  ESSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
071464 104011 ERROR 11 ; ;7ERROR ON CLOCK100HZ PULSE 


;/NOT GENERATED WHEN 10000 
:/OSC PULSES GENERATED. 
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; ; S$SSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSESSSSSSSSSSSSSS 





SEQ 0073 


(1) 011466 47 BR 5$ 
(1) 011470 012701 000012 66$: MOV #10. ,R1 
(1) 011474 012700 023417 %$: MOV #9999. .RO Hy THE NUMBER OF MORE OSC PULSES 
oh /TO BE GENERATED. 
(1) 
(1) 911500 052777 002000 167670. 4$: BIS #B1T10,aASR :/GENERATE ANOTHER OSC PULSE. 
(1) 011506 005300 DEC RO /WHAT WE WANT TO CHECK 
(1) 011510 001373 BNE 4$ = /100HZ PULSE ON 9999 OSC PULSES. 
(1) 011512 005301 DEC R1 
a 011514 001367 BNE 3$ 
41) 
(2) 011516 017746 167654 ‘MOV @ASR ,-(6) 3/7SAVE CSR 
(2) 011522 011637 001424 MOV (6) ,STMP3 */GET CSR. 
(2) 011526 042737 177707 001424 BIC #177707, STMP3 * /SAVE RATE BITS 
(2) 011534 052737 004005 001424 BIS #B1T11'BIT2! BITO. STMP3 ;/SET MODE 2. NO RATE, DISABLE INTERNAL OSC 
(2) 011542 013777 001424 167626 MOV $TMP3,@ASR */L OAD CSR 
(2) :/THIS MUST BE DONE IN 
(2) ;/ORDER TO XFERR COUNTER 
(2) :/T0 BUFFER ON ST2. 
(2) 011550 052777 001000 167620 BIS #B1T9,aASR ;/GENERATE ON STD PUL SE 
(2) 011556 017737 167616 001126 MOV @ABR , SBDDAT :/READ THE PRESET BUFFER, 
(2) ;/PREVIOUS COUNTER 
(2) 011564 012677 167606 MOV (6)+,@ASR :/7CONTENTS ARE IN $BDDAT. 
(2) 011570 005737 001126 TST $BDDAT */RESTORE CSR 
(1) 011574 023737 001124 001126 CMP $GDDAT,$BDDAT =; /WAS og + a PULSE GENERATED? 
+h 011602 001401 BEQ 5$ ;/NO - NEXT T 
(2) 
s SSSSSSSSSSSSSSSSSSSESSESSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


011604 104011 ERROR 11 3;/WE SEEM TO HAVE oa 
: /ANOTHER 100HZ PULSE ON 
/ONLY 9999 MAINTENANCE 
:/0SC PULSES. 


j  S$SSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSS$SSSSSSSSSSSSSSSSSSSSSSSSISS 
5$: CLR @ASR ;/CLEAR THE CSR. 


Cm ee ee ae 
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CVKWAC .P11 08-AUG-79 10:45 T60 *TEST THE CLOCK'S MODE 2 OPERATION SEQ 0074 
1198 5 RRR ERERR ERA ERE REET REE 
st :*TEST 60 *TEST THE CLOCK’S MODE 2 OPERATION 
) 
(4) SIN THIS TEST WE'LL CHECK MODE 2 OPERATION 
(4) ;*MODE 2: EXTERNAL EVENTS TIMING MODE 
(4) + *SETTING GO BIT CAUSES THE COUNTER TO BEGIN COUNTING FROM 
(4) ;*ZERO AND TO FREE-RUN UNTIL THE GO BIT IS WRITTEN 
(4) :*T0 A ZERO FHE COUNTER WILL yg tg COUNTING AFTER 
(4) ;*OVERFLOW. AN EXTERNAL fh FROM og LR TRIGGER 2 
(4) + * (WHEN ST2 GO ENABLE IS A ‘0°") CAUSES DATA TO 
(4) + * TRANSFER FROM THE COUNTER TO THE BUFFER/PRESET REG. 
+e : WHILE THE COUNTER CONTINUES TO RUN 
) 
(4) 14T0 TEST THIS MODE, WE'LL DISABLE THE INTERNAL OSC AND USE 
- — OSC PULSES AS WELL AS A MAINTENANCE 
(4) tes e 
‘ . 
‘3 » jeanne eqaneusdnenenneberqneenaenaonnasenennsenenesemannnseNnes 
(2) 011612 000004 . TST60: SCOPE 
mS, 011614 012737 000020 001160 MOV #20, $TIMES 3:D0 20 ITERATIONS 
1200 011622 005077 167550 CLR @ASR :CLEAR THE CSR. 
1201 011626 005077 167546 CLR @ABR ;CLEAR THE PRESET REG. 
16 011632 012777 004015 167536 MOV #004015,a@ASR ;START CLOCK. 
1204 011640 012700 177754 1$: MOV #-20.,R0 ;SET TO GIVE 20 MAINTENANCE OSC. 
1205 011644 052777 002000 167524 2%: BIS #B1T10, @ASR ;GENERATE A MAINTENANCE OSC. 
1206 011652 005200 INC RO 
Hf 011654 001373 BNE 2$ 7; IF NOT DONE 20 TIMES, LOOP. 
1209 011656 052777 001000 167512 3$: BIS #BIT9,aASR sHERE'S THE BIGGIE! AN ST2 HAS BEEN GENERATED 
1210 011664 012737 000002 001124 MOV #2 ,$GDDAT ; THE PRESET BUFFER SHOULD BE 2. 
1211 011672 017737 167502 001126 MOV @ABR , SBDDAT SREAD THE PRESET BUFFER 
1212 011700 023737 001126 001124 CMP SBDDAT .S$GDDAT :DID A COUNTER TO PRESET BUFFER OCCUR? 
‘saz 011706 001402 BEQ 4$ sYES - NEXT SUBTEST. 
:  SESSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1215 011710 104005 ERROR 5 3A COUNTER TO PRESET BUFFER DID NOT 
isis } ;HAPPEN PROPERLY. 
s  SS$SSSSSSSSSSSSSSSSESSSSESS>>> ERROR <<<$$S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSS 
1218 011712 000434 BR 5$ 
1219 
1220 011714 4$: 
(1) 011714 017746 167456 MOV @ASR,-(6) 3/SAVE CSR 
(1) 011720 011637 001424 MOV (6) $TMP3 </GET CSR, 
(1) 011724 042737 177707 001424 BIC #177707, STMP3 + /SAVE RATE BITS. 
(1) 011732 052737 004005 001424 BIS #B1T11'BIT2! BITO. STMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
at 011740 013777 001424 167430 MOV $TMP3,a@ASR /THIS 5 LLOAD CSR. 
3:/TH 
(1) /ORDER TO XFERR COUNTER 
(1) ;/TO BUFFER ON ST2. 
(1) 011746 052777 001000 167422 BIS #BIT9,@ASR */GENERATE ON ON ST2 PULSE 
(1) 011754 017737 167420 001126 MOV @ABR , SBDDAT + /READ THE PRESET BUFFER, 
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CVKWAC .P11 08-AUG-79 10:45 T60 *TEST THE CLOCK'S MODE 2 OPERATION SEQ 0075 
(1) ;/PREVIOUS COUNTER 
(1) 011762 012677 167410 MOV (6)+,@ASR :7CONTENTS ARE IN $BDDAT. 
(1) 011766 005737 001126 TST $BDDAT ;/RESTORE CSR 
1221 011772 023737 001124 001126 CMP $GDDAT,$BDDAT  :WAS THE gH ACCIDENTLY ZEROED? 
iss 012000 001401 BEQ 5$ NO = NEXT TEST. 
;  S$SSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1224 012002 104005 — ERROR 5 ; THE COUNT REGISTER SHOULD NOT 
1225 HAVE BEEN EFFECTED BY THE ST2 
1se8 3IN MODE 2. 
5 SSS$SSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1228 012004 5$: 
1229 , 
1237 
1238 SISOS IIDIDIOI I IOIOIDIIUIOIOIUIIUIDIDIUIOIIDIDIUIOIOIUIIIOIOIOIIOIOIOII Io ton 
te {TEST *TEST THE CLOCK'S MODE 3 OPERATION 
(4) SIN THIS TEST WE'LL CHECK MODE 3 OPERATION. 
(4) :*MODE 3 IS JUST LIKE MODE 2 EXCEPT THAT THE COUNT 
a >*REG 1S ZEROED AFTER AN ST. 
:* 
(3) [DISUSE IOI IOOIIIIIIEIISIIISIOOOOIIIIOISIIOOOIIIUIIIEIUIOIIOIIIIOEIINOUE ES 
(2) 012004 000004 TST61: SCOPE 
1530 012006 012737 000020 001160 MOV #20,$TIMES 3:DO 20 ITERATIONS 
1240 012014 005077 1673546 CLR a@ASR : CLEAR THE CSR. 
1241 012020 005077 167354 * CLR @ABR :CLEAR THE BUFFER REG. 
iss 012024 012777 004017 167344 MOV #4017,@ASR ; START CLOCK. 
1244 012032 012700 177754 1$: MOV #-20. ,RO 3SET TO GIVE 20 MAINTENANCE OSC. 
1245 012036 052777 002000 167332 2%: BIS #B1T10,@ASR ;GENERATE A MAINTENANCE OSC. 
1246 012044 005200 INC RO 
a4 012046 001373 BNE 2$ ;1F NOT DONE 20 TIMES, LOOP. 
1249 012050 052777 001000 167320 3$: BIS #B1T9,aASR HERE'S THE BIGGIE! AN ST2 HAS BEEN GENERATED 
1250 012056 012737 000002 001124 MOV #2, $GDDAT 7; THE PRESET BUFFER SHOULD BE 2. 
1251 012064 017737 167310 001126 MOV * @ABR ,, SBDDAT [READ THE PRESET BUFFER 
1252 012072 023737 001126 001124 CMP $BDDAT , S$GDDAT mae A COUNTER TO PRESET BUFFER OCCUR? 
sez 012100 001402 BEQ 4$ ;YES - NEXT SUBTEST. 
7  S$SSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SS$$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1255 012102 104005 ERROR 5 3A COUNTER TO PRESET BUFFER DID NOT 
1s6 ;HAPPEN PROPERLY. 
| S$SSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SS$SSSSSSSSSSSSSSSSSSSSSSSESSSS 
1s38 012104 000445 BR TST62 ae 
1266 012106 005037 001124 4$: CLR $GDDAT EXPECT a BACK FROM COUNT REG. 
1261 012112 017746 167260 MOV @ASR,~(6) 77 SAV E CSR 
(1) 012116 011637 001424 MOV 


(6) ,S$TMP3 /GET CSR. 
(1) 012122 042737 177707 001424 BIC #177707, $1MP3 :/ SAVE RATE BITS. 
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052737 
013777 


052777 
017737 


012677 


005737 
001402 


104005 


000004 


012737 
005737 


011637 








“TEST THE CLOCK'S MODE 3 OPERA 


004005 001424 BIS #81111 :B112!B1T0, STMP3 :/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
001424 167232 MOV $TMP3,aASR */LOAD CSR 
:/THIS MUST BE DONE IN 
t/ORDER TO XFERR COUNTER 
:/TO BUFFER ON ST2. 
001000 167224 BIS #BI1T9,aASR :/GENERATE ON ST2 PULSE 
167222 001126 MOV @ABR , $BDDAT */READ THE PRESET BUFFER, 
+/PREVIOUS COUNTER 
167212 MOV (6)+,@ASR */CONTENTS ARE IN SBDDAT. 
001126 TST $BDDAT */RESTORE CSR 
BEQ 5$ SIF SO = NEXT TEST. 
= : $$S$SSSSS$SSSSS$SSSSESSESS>>> ERROR <K<<$$$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 5 :THE CLOCK FORGOT TO ZERO THE COUNT 
“REG. AFTER AN ST2 OCCURRED ON 
‘A MODE 3 COUNT. 
: : S$S$SS$SSSSSSESSESSESSSSS>>> ERROR <K<<$$$S$SSSSSSSSSSSSSSSSSSSSSSSSSSS 
- BR TST62 sé 
167174 d CLR @ASR zNOW TRY CLEARING THE CSR. 
167170 001126 Mov QASR, SBDDAT ;READ THE CSR ~ DID IT CLEAR? 
001124 CLR $GDDAT “NO - RECORD S/B. 
: : $$S$$SSS$SSS$SES$SSSSSSS$SES>>> ERROR <<<$$SS$ESSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 :C(SR FAILED TO CLEAR 


|: S$SSSESSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$S$SS$SSSSSSSSESSSSSSSSSSSSSSSSSSS 


SLR REE ARERKEREEEEEEEREEEREKEREEEREEREEEEEREEREEEER ERE 


;*TEST 62 *IF ENABLED,CHECK THRESHOLD ST1 FROM TESTOR 
—MARBASSAALAL £22222 22 SES RRRSSS REE SESA RRR SARS ASRS RSS R SARA RAR ASSAD SS, 
15162: SCOPE 
909002 001160 MOV #2,$TIMES 3:D0 2 ITERATIONS. 
001440 TST EXS ;OPERATING IN TESTOR MODE? 
BNE 4$ YES DO Ling b TEST. 
013056 - JMP ENDP ;NO-END PASS 
167130 CLR @ASR ;YES-CLEAR CSR 
177775 167124 MOV #-3,@ABR :SET TO COUNT THREE — 
000061 167114 MOV #61 ,@ASR SET RATE: ST1,MODE 1 
012270 TYPE ,65$ 2 i TYPE ASCIZ STRING 
BR 64$ ;GET OVER THE ASCIZ 
ot “ASCIZ <200><7><7>#SET ST1 THRESHOLD POT FULLY COUNTERCLOCKWIZE. 
013740 JSR PC ,ANYKEY TYPE LAST MESSAGE ,AND WAIT FOR OPERATER. 
177775 =001124 MOV #-3,$GDDAT DON'T EXPECT COUNT TO CHANGE. 
167004 MOV aasR,-(6) :7SAVE CSR 


001424 (6), STMP3 :/GET CSR. 
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CVKWAC P11 08-AUG-79 10:45 T62 ENABLED,CHECK THRESHOLD ST7 FROM TESTOR SEQ 0077 


012376 042737 177707 #177707,$TMP3 __;/SAVE RATE BITS. 

012404 052737 004005 #B1T11'BIT2'BITO.STMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 

012412 013777 001424 $TMP3,@ASR :/LOAD CSR. 
;/THIS MUST BE DONE IN 
:/ORDER TO XFERR COUNTER 

/TO BUFFER ON ST2. 

012420 052777 001000 #B1T9,@ASR :/ GENERATE ON ST2 PUL 

012426 017737 @ABR , SBDDAT ; READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 

012434 012677 166736 MO (6)+,@ASR /CONTENTS ARE IN $8DDAT. 

012440 005737 S$BDDAT /RESTORE CSR 

012444 001002 BNE 2s IF NON-ZERO, WE'RE OK. 


js SES$SSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


012446 104002 ERROR 2 ; COUNTERCLOCKWIZE THRESHOLD SETTING 
:OF ST1 SHOULD HAVE INHIBITED 
;ST1 FROM CAUSEING CLOCK TO COUNT. 


;  SSSSSLSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
012450 TST63 ie 


012452 : 

012452 012460 ,67$ +s TYPE ASCIZ STRING 

012456 BR 66$ ;GET OVER THE ASCIZ 

25% :3 : <200><7><7>#SET S71 THRESHOLD POT FULLY CLOCKWIZE# 


013740 $: PC ,ANYKEY TYPE LAST MESS. AND WAIT FOR OPERATOR. 
166634 ;/SAVE CSR 


aASRe me : 
ye o 


001424 MP3 
177707 #9770 MP3 RATE BITS. 
004005 MaiTt1 Biro 'alT0. Somes 3/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 
012562 013777 001424 $TMP3,@ASR :/LOAD CSR 
:/THIS MUST BE DONE IN 


:/ORDER TO XFERR COUNTER 
:/TO BUFFER ON STe. 


012570 052777 001000 166600 #B1T9,@ASR ;/GENERATE ON ST2 PULSE 

012576 017737 001126 @ABR , SBDDAT z/READ THE faien BUFFER, 
012604 012677 166566 (6)+,@ASR :/CONTENTS ARE IN $BDDAT. 
012610 005737 ;/RESTORE CSR 

012614 001001 33 


5 SSS$SSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSS$$SSSSSSSSSSSSSSSSSSSSSSSSSSS 
012616 ERROR 2 ;CLOCKWIZE THRESHOLD SETTING OF 
>$T1 SHOULD HAVE INHIBITED CLOCK 
;FROM COUNTING. 


js S$SSSS$SSSSSSSSSSSSSSSSSSE>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
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S*TEST 63 *]F ENABLED, CHECK S$T1,ST2 IN FROM TESTOR 
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000004 
012622 012737 000002 001160 
012630 005737 001440 
012634 
012636 005077 166534 
012642 012777 177775 166530 


012650 012777 000061 166520 
012664 
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012772 042737 177707 001424 
013000 052737 004005 001424 
013777 001424 166362 


013014 052777 001000 166354 
013022 017737 166352 001126 


013030 012677 166342 
013034 005737 001126 


013040 001402 


NORD @ a 2 Ss SS SS SS SND 


—_—— 


013042 104002 


er 013044 000404 


013046 005777 166324 
34 013052 100401 


013054 104006 
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TST63: SCOPE 
MOV 


#2,$TIMES 3:D0 2 ITERATIONS 
TST EXS OPERATING IN TESTOR MODE? 
BEQ ENDP sNO-EXIT THIS TEST. 
CLR @ASR CLEAR THE CSR 
MOV #-3,@ABR 7SET TO COUNT THREE TIMES 


MOV #61.@ASR ‘SET RATE:ST1, MODE1, GO 


TYPE ,65$ 73 TYPE ASCIZ STRING 
BR 64$ “GET OVER THE ASCIZ 
51958: "ASCIZ <200><7><7>#SET $11 THRESHOLD POT IN THE MIDDLE OF ITS RANGE.# 
JSR PC, ANYKEY ; TYPE LAST MESS WAITE FOR OPERATOR. 
CLR $GDDAT SEXPECT COUNTER TO BE CLEAR 
MOV @AsR = (6) [/SAVE CSR 
MOV 3 :/GET 


TMP CSR. 
BIC 477707 § VE RATE BITS. 


MP3 _;/SA 
BIS #31711 (B1T2'B1T0° STMP3 ;/SET MODE 2, NO RATE,DISABLE INTERNAL OSC 


MOV $TMP3,@ASR :/LOAD CSR. 
;/THIS MUST BE DONE IN 
:/ORDER TO XFERR COUNTER 
:/TO BUFFER ON ST2. 
3/GENERATE ON ST2 PULSE 
;/READ THE PRESET BUFFER, 


BIS #B1T9,@ASR 
MOV @ABR , SBDDAT 


:/PREVIOUS COUNTER 
MOV (6)+,@ASR :/CONTENTS ARE IN $BDDAT. 
TST $BDDAT :/RESTORE CSR 

70F NON-ZERO - REPORT ERROR 
BEQ 2$ 


js SS$SSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 ; INCORRECT # OF ST1°S 
RECEIVED BY CLOCK 


js SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BR ENDP 

2$: 
TST @ASR ;DID ST2 FLG SET? 
BM! ENDP 


|: S$S$SSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 6 :ST2 FLAG DID SET EVEN THOUGH 
SWITCH WAS TOGGLED. 


j  SS$SSSSSSSSSSSSSSSSSSSS$SS$>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


“NOW WE'LL DETERMINE IF WE ARE ALLOWED 10 AUTO-SIZE. 
iF $0, WE'LL FIND OUT IF THERE ARE OTHER CLOCKS OUT THERE 


SEQ 0078 
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*I]F ENABLED, CHECK ST1,ST2 IN FROM TESTOR SEQ 0079 


1344 3 
1345 
1346 013056 000004 ENDP: SCOPE 
He 
1349 013060 105737 001215 ~ STB. = SENVM :SEE IF APT WILL LET UP AUTO-SIZE. 
1350 013064 100537 BMI 2$ *NO = EXIT. 
1382 
1353 0 023737 001434 001436 CMP MDEVCT,TSTCNT ;TESTED MAX. UNITS? 
1354 013074 001507 BEQ 4$ SYES EXIT. 
1355 013076 006337 001426 ASL ROTATE “POINT NEXT UNIT. 
1356 013102 005237 001434 INC MDEVCT 
1358 013106 062737 000004 001376 ADD #4 ASR 7YES, ADD TO BASE ADDR. 
1359 013114 013746 000004 MOV ERRVEC,-(6) SSAVE CONTENTS OF LOC 4. 
1360 013120 012737 013274 000004 MOV #1$, ERRVEC :SET UP IN CASE NO MORE CLOCKS. 
1362 013126 005777 166244 TST @ASR :TIME OUT HERE IF NO MORE CLOCKS. 
1364 :IF HERE, ANOTHER CLOCK FOUND. 
1365 013132 005737 001202 TST $PASS ‘IS THIS 1ST PASS? 
1366 013136 001003 BNE 3$ *NO-GET OUT. 
1367 013140 053737 001426 001430 BIS ROTATE,UTEST § :YES-RECORD THIS UNIT. 
1368 013146 3$: 
1369 013146 104401 013154 TYPE 65$ :: TYPE ASCIZ STRING 
(1) 013152 000405 BR 64$ *:GET OVER THE ASCIZ 
(1) ::65$: .ASCIZ <15><12>"UNIT #"' 
(1) 013166 64$: 
1370 013166 013746 001204 MOV $DEVCT,-(SP) ::SAVE S$DEVCT FOR TYPEOUT 
(1) 013172 104402 TYPOC *:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
1371 013174 104401 013202 : TYPE 67% S: TYPE ASCIZ STRING 
(1) 013200 000406 BR 66$ SZGET OVER THE ASCIZ 
(1) ::67$: .ASCIZ ‘' COMPLETED " 
(1) 013216 668: 
1372 013216 005237 001204 INC SDEVCT 
1373 013222 104401 013230 TYPE ,69$ i: TYPE ASCIZ STRING 
(1) 013226 000410 BR 68$ GET OVER THE ASCIZ 
(1) ::69$: .ASCIZ ‘’ TESTING UNIT #”° 
(1) 013250 68$: 
1374 013250 013746 001204 MOV SDEVCT,-(SP) ; SAVE SDEVCT FOR TYPEOUT 
(1) 013254 104402 TYPOC +:GO TYPE--OCTAL ASCII(ALL DIGITS) 
1375 013256 012637 000004 MOV (6) +, ERRVEC SRESETORE LOC 4. 
1376 013262 062737 000010 001402 ADD #10,VECT1 [UPDATE VECTOR ADDR. 
1377 013270 000137 002334 JMP LOOP *TEST NEW UNIT. 
1379 013274 1$: 
(1) 013274 062706 900004 ADD #4,SP :/ADD #4 TO STACK POINTER. 
1380 013300 012637 000004 MOV (65+, ERRVEC ;RESTORE LOC 4 
1381 013304 022737 000000 001204 CMP #0, $DEVCT [TESTED ONLY ONE UNIT? 
1382 013312 001424 BEQ 2$ :YES - NO NEED FOR TYPEOUT. 
1384 013314 4$: 
1385 013314 104401 013322 TYPE 71$ zz TYPE ASCIZ STRING 
(1) 013320 000405 BR 70$ *:GET OVER THE ASCIZ 
(1) ::71$: .ASCIZ <15><12>"UNIT a”! 
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CVKWAC P11 08-AUG-79 10:45 163 *]F ENABLED, CHECK ST1,S5T2 IN FROM TESTOR SEQ 0080 

(1) 0133346 70$: 

1386 013334 0137466 001204 MOV SDEVCT,=(SP) ::SAVE SDEVCT FOR TYPEOUT 

(1) 013340 104402 TYPOC *:GO TYPE=-OCTAL ASCII(ALL DIGITS) 
1387 013342 104401 013350 TYPE 73$ +: TYPE ASCIZ STRING 

(1) 013346 000406 BR 72$ *:GET OVER THE ASCIZ 

(1) -:73$: .ASCIZ °' COMPLETED "’ 

WZ 013364 72$: 

1389 013364 013737 001250 001376 2%: MOV SBASE ,ASR 

1390 013372 013737 001244 001402 MOV $VECTI.VECTI 

1391 013400 013737 001204 001442 MOV SDEVCT.LCNT 

1392 013406 005237 001442 INC LCNT 

1393 013412 012737 000000 001204 MOV #0,$DEVCT 

1395 013420 005037 001434 CLR MDEVCT :BEGIN TESTING 1ST UNIT. 

1396 013424 012737 000001 001426 MOV #1 ROTATE :POINT TO IT 

1409 

“yy .SBTTL END OF ?ASS ROUTINE 

(2) J LRA ARAAAAAARAREREARRERERRERARERARREERRERRRRAERRERREAAARERRARRRE ES 

(1) ‘*INCREMENT THE PASS NUMBER ($PASS) 

(1) ;*IF THERES A MONITOR GO TO IT 

(1) :*]F THERE ISN'T JUMP TO LOOP 

(1) 013432 SEOP: 

(2) 013432 000240 NOP 

(1) 013434 005037 001102 CLR STSTNM oh THE TEST NUMBER 

(1) 013440 005037 001160 CLR STIMES ZERO THE NUMBER OF ITERATIONS 

(1) 013444 005237 001202 INC $PASS : INCREMENT THE PASS NUMBER 

(1) 013450 042737 100000 001202 BIC #100000, $PASS {DON'T ALLOW A NEG. NUMBER 

(1) 013456 005327 DEC (PC) + LOOP? 

(1) 013460 000001 SEOPCT: .WORD 1 

(1) 013462 003122 BGT SDOAGN Zi YES 

(1) 013464 012737 MOV (PC)+,a(PC)+ ; RESTORE COUNTER 

(1) 013466 000001 SENDCT: .WORD 1 

(1) 013470 013460 SEOPCT 

(3) 013472 104401 013500 TYPE ,65$ 2a TYPE ASCIZ STRING 

(3) 013476 000406 BR 64$ ‘GET OVER THE ASCIZ 

(3) :365$: .ASCIZ <15><12>#ENDPASS 4 

(3) 013514 64$: 

(3) 013514 013746 001202 MOV SPASS ,-(SP) ote SPASS FOR TYPEOUT 

(3) 013520 104402 TYPOC :GO T YPE~-OCTAL ASCII(ALL DIGITS) 

(3) 013522 104401 013530 TYPE 67% :TYPE ASCIZ STRING 

(3) 013526 000411 BR 66$ GET OVER He MASCIZ 

(3) :7367$: .ASCIZ # TOTAL ERRORS @ 

(3) 013552 66$: 

(3) 013552 013746 001432 MOV ERCNT,~(SP) 77 SAVE ERCNT FOR TYPEOUT 

(3) 013556 104402 TYPOC ::GQ TYPE--OCTAL ASCII(ALL DIGITS) 

(3) 013560 104401 013566 TYPE 69% +: TYPE ASCIZ STRING 

(3) 013564 000407 BR 68$ °G2T OVER THE ASCIZ 

(3) 3;69$: .ASCIZ #; THERE ARE # 

(3) 013604 68$: 

(3) 013604 013746 001442 MOV LCNT,-(SP) 77 SAVE LCNT FOR TYPEOUT 

(3) 013610 104402 TYPOC *:GO0 TYPE=-OCTAL ASCII(ALL DIGITS) 

(3) 013612 104401 013620 TYPE = 718 =: TYPE ASCIZ STRING 
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CVKWAC P11 08-AUG-79 10:45 END OF PASS ROUTINE SEQ 0081 
(3) 013616 0004611 BR 70$ ::GET OVER THE ASCIZ 
(3) --71$:  ASCIZ # (OCTAL) UNITS.& 
(3) 013642 70$: 
(3) 013642 104401 013650 TYPE 73$ ii TYPE ASCIZ STRING 
(3) 013646 000415 BR 72$ “GET OVER THE ASCIZ 
(3) -73$: .ASCIZ <200>#THE GOOD UNITS (L TO R) # 
(3) 013702 O58: 
(3) 013702 013746 001430 MOV UTEST,-(SP) i SAVE UTEST FOR TYPEOUT 
(3) 013706 104405 TYPBN :GO TYPE=-BINARY ASCII 
(1) 013710 013700 000042 $GET42: MOV a742,R0 :3GET MONITOR ADDRESS 
(1) 013714 001405 BEQ SDOAGN [BRANCH IF NO MONITOR 
(1) 013716 000005 RESET S:CLEAR THE WORLD 
(1) 013720 004710 SENDAD: JSR PC, (RO) +:GO TO MONITOR 
(1) 013722 000240 NOP +: SAVE ROOM 
(1) 013724 000240 NOP 33 
(1) 013726 000240 NOP t:ACT11 
(1) 013730 SDOAGN: 
(1) 013730 000137 JMP a(PC)+ 7 RETURN 
(1) 013732 002334 $RTNAD: .WORD LOOP 
(1) 013734 377 377 000 $ENULL: .BYTE -1,-1,0 :ZNULL CHARACTER STRING 
(1) 013740 EVEN 
1212 
1413 ‘THIS ROUTINE TYPES LAST MESSAGE AND WAITS FOR AN OPERATOR 
1414 =RESPONCE. 
ele 
1417 013740 105777 165202 ANYKEY: TSTB a$TKB :CLEAR TTY READY FLAG. 
1418 013744 104401 013752 TYPE ,65$ ::TYPE ASCIZ STRING 
(1) 013750 000430 BR 64$ *GET OVER THE ASCIZ 
(1) 3765$: .ASCIZ <200><7>4SwITCH $71 3 TIMES, TYPE ANY KEY WHEN DONE. .&<7> 
23 014032 © 64$: 
1420 014032 105777 165106 1$: TSTB ~—s- aSTKS :WAIT FOR OPERATOR. 
1421 014036 100375 BPL 1$ 
1422 014040 105777 165102 TSTB = ASTKB :CLEAR TTY READY FLAG. 
ore 014044 000207 RTS PC 
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ND OF PASS ROUTINE SEQ 0082 


-SBTTL 


*1/0 SIGNAL TEST #1 ST1 IN AND ST2 OUT IN AND OUT 


“SWITCH PACK $2 MUST BE SET UP AS FOLLOWS: 


Z SWITCH 1 = OFF 

: 2 - ON 

: 3 = OFF 

: 4 - OFF 

; 5 - ON 

3 6 - ON 

; 7 = NOT USED 


THIS SELECTS TTL THRESHOLDS AND POSITIVE SLOPE FOR 
SCHMITT TRIGGER 1. 


“PLEASE REMOVE ANY PREVIOUS JUMPER. 

[JUMPER THE FOLLOWING PINS TOGETHER: 

; J1 = SS (ST2 OUT) TO J1 = W (STI-IND 
[LOAD AND START AT LOCATION 210 

;END PASSES OCCUR IMMEDIATELY AND ARE NOT REPORTED 
“ERRORS ARE REPORTED AS IN THE REGULAR LOGIC TEST AND 
“THEIR PRINTOUT MAY BE INHIBITED 


MOV MIOTST1,$TMPO ;LOAD RETURN ADDRESS 


JMP INIT [PRIME THE PROGRAM VECTOR SPACE 
IOTST1: CKSWR [CHECK THE SWR 
1€: CLR @ASR CLEAR THE CS 
CLR :CLEAR THE BUFFER REG 
MOV #61,@ASR ;RATE ST1, MODE 0, GO. 
BIS #B1T9,aASR ZGENERATE A MAINTENANCE STZ. 
MOV #5,@ASR :NOW SET TO READ COUNT ad; 
BIS #B1T9,aASR ;FORCE COUNT -> BUFFER REG. 
CMP @ABR , #1 [DID COUNT REG ADVANCE ONCE? 
BEQ IOTST1 YES - LOOP. 
ERROR :ST2 OUT TO ST1 IN FAILED. 


IOTST1 


THIS SELECTS TTL THRESHOLDS AND POSITIVE SLOPE FOR 
SCHMITT TRIGGER 2. 


{PLEASE REMOVE ANY PREVIOUS JUMPER. 


F ? 
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TC vKWAC.P11 08=AUG-79 10:45 1/0 SIGNAL TEST #1 ST1 IN AND ST2 OUT IN AND GUT SEQ 0083 
1473 ; 
1474 .SRTTL [1/0 SIGNAL TEST #2 CLOCK OVFLOW OUT TEST. 
4 : ‘ 
‘as 
(1) > SWITCH PACK S2 MUST BE SET UP AS FOLLOWS: 
: SWITCH 1 = OFF 
; 2 - OFF 
: 5 = OFF 
: 4 - ON 
§ 5 - OFF 
; 6 - ON 
; 7 = NOT USED 


ee i ee En te en ee ee ee ee te 
ee et a ed ot ot ot ot 
Nee New Oe Oe eee es 


ytd “JUMPER THE FOLLOWING PINS TOGETHER: 

4 ; 

i s J1 = RR (CLK OV) TO J1 = TT (ST2=-IND 

4 ; 

1481 ' LOAD AND START AT LOCATION 214. 

1482 “END PASSES OCCUR IMMEDIATELY AND ARE NOT REPORTED. 
1483 ZsERRORS ARE REPORTED AS IN TH REGULAR LOGIC TEST AND 
ine S THEIR PRINTOUT MAY BE INHIBITED. 

1486 014136 012737 014150 001420 OITST2: MOV #IOTST2,$TMPO ;LOAD RETURN ADDRESS 

1487 014144 000137 001526 JMP INIT ;PRIME THE PROGRAM VECTOR SPACE 
1488 914150 104407 IOTST2: CKSWR : CHECK THE SWR. 

1489 014152 005077 165220 CLR @ASR ;CLEAR THE CSR. 

1490 014156 012777 177777 165214 MOV #-1,@ABR ;PRELOAD PRESET BUFFER. 

1491 014164 012777 000063 165204 MOV #63,aASR sRATE ST1, MODE 1. GO. 

1492 014172 052777 000400 165176 BIS #BI1T8, @ASR : GENERATE A MAIN. STi. 

1493 014200 000240 NOP 

1494 014202 000240 NOP 

1495 014204 005777 165166 .TST @ASR ;DID OVERFLOW SET ST2 FLAG? 
1496 014210 100757 BM] IOTST2 :YES = LOOP 

1497 014212 7104000 ERROR ce OUT TO ST2 IN FAILED. 


1498 014214 000755 BR 10TST2 
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CVKWAC P11 08-AUG-79 10:45 31/0 SIGNAL TEST #2 CLOCK OVFLOW OUT TEST. SEG 0084 
- 71501 : F 
1306 .SBITL 31/0 SIGNAL TEST #3 ST1 OUT AND ST2 IN 
1504 | 
1505 3 
. 1506 sSWITCH PACK S2 MUST BE SET UP AS FOLLOWS: 
1507 : SwITCH 1 = OFF 
1508 ; 2 - OFF 
1509 3 3 = OFF 
1510 : 4 - ON 
1511 : 5 - ON 
1512 ; 6 - ON 
1513 5 7 = NOT USED 
15146 : THIS SELECTS TTL THRESHOLD AND POSITIVE SLOPE FOR 
Pa : SCHMITT TRIGGER 2. 
bab ; PLEASE REMOVE ANY PREVIOUS JUMPERS. 
1519 [JUMPER THE FOLLOWING PINS TOGETHER: 
1255 ' 3 J1 = UW (ST1 OUT) TO J1 = TT (ST2=IN) 
1522 :LOAD AND START AT LOCATION 220 
1523 END PASSES OCCUR IMMEDIATELY AND ARE NOT REPORTED 
1524 ERRORS ARE REPORTED AS IN THE REGULAR LOGIC TEST AND 
i ‘THEIR PRINTOUT MAY BE INHIBITED 
1527 014216 012737 014230 001420 OITST3: MOV #I10TST3,$TMPO  ;LOAD RETURN ADDRESS 
1528 014224 000137 001526 JMP INIT PRIME THE PROGRAM VECTOR SPACE | 
1529 014230 104407 IOTST3: CKSWR CHECK THE SWR 
1530 014232 012777 000001 165136 MOV #1,@ASR ;SET GO BIT 
1531 014240 052777 000400 165130 BIS #B1T8,aASR ‘GENERATE A MAIN. ST1. 
1532 0142466 005777 165124 TST @ASR :DID ST2 FLAG SET? 
1533 014252 100401 BM! 1$ 
bt «1 014254 104000 . ERROR 3ST1 OUT TO ST2 IN FAILED 
1536 014256 032777 010000 165112 i$: BIT #B1112,a@ASR DID ‘FOR’ BIT SET? 
1537 014264 001761 .  BEQ 1OTST3 :NO ~ GOOD: 
fd 4 014266 104000 ERROR ‘FOR’ BIT SET ON ONLY 1 ST2. 


014270 000757. BR 1oTST3 ; LOOP 
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CVKWAC P11 08-AUG=79 10:45 31/0 SIGNAL TEST #3 STi OUT AND ST2 IN SEQ 0085 


1941 
1542 . SBTTL 
1543 ~SBTTL *SYSMAC ROUTINES 
1944 - SBTTL 
1545 
1546 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

3 RARER ERE RARER EE REE ERE REE ER ERE REE ARR AREER EERE ED 
(1) S*THIS ROUTINE IS USED TO = 4 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) ;*OCTAL (ASCII) NUMBER AND TYPE IT 

(1) > *$TYPOS=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
(1) :*CALL: 

(1) te MOV NUM , = (SP) ;NUMBER TO BE TYPED 


(1) se TYPOS STCALL FOR TYPEOUT 

(1) 8 .BYTE N :IN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(1) aa BYTE bal 7:M=1 OR 0 

(1) :* 721=TYPE LEADING ZEROS 
(1) 3* 77 0=SUPPRESS LEADING ZEROS 
(1) ." 

(1) 7 *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) t*$TYPOS OR $TYPOC 

(1) > *CALL. 

(1) :* MOV NUM , = (SP) : NUMBER TO BE TYPED 

(1) :* -°  TYPON 7:CALL FOR TYPEOUT 

(1) 8 

(1) i *$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

(1) Z*CALL: 

(1) :* MOV NUM, = (SP) : ;NUMBER TO BE TYPED 

(1) :* TYPOC ::CALL FOR TYPEOUT 

(1) 

(1) 014272 017646 000000 $TYPOS: MOV a(SP) ,-(SP) zzPICKUP THE MODE 

(1) 014276 116637 014515 MOVB 1(SP) ,SOF ILL :ZLOAD ZERO FILL SWITCH 

(1) 014304 112637 014517 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 

(1) 014310 062716 ADD #2, (SP) : ;ADJUST RETURN ADDRESS 

(1) 014314 BR $TYPON 

(1) 014316 112737 000001 014515 $TYPOC: MOVB #1,$0F ILL 77 SET THE ZERO FILL it he 

(1) 014324 112737 014517 MOVB #6, SOMODE +1 eeset FOR SIX(6) DIGITS 

(1) 014332 112737 Q00005 014514 $TYPON: MOVB #5, $0CNT i SET THE ITERATION Count 

(1) 014340 010346 MOV R3,-(SP) ss E R3 

(1) 014342 010446 MOV R4,-(SP) ZZ SAVE R4 

(1) 014344 010546 MOV R5,-(SP) 7 SAVE R5 

(1) 014346 113704 014517 MOVB SOMODE +1, RS 72GET THE NUMBER OF DIGITS TO TYPE 
(1) 014352 005404 NEG 

(1) 014354 062704 000006 ADD ~¥ R4 ; 7 SUBTRACT IT FOR MAX. ALLOWED 
(1) 14360 110437 014516 MOVB R4. SOMODE ; SAVE IT FOR USE 

(1) 14 113704 014515 MOVB SOF ILL,R4S 3iGET THE ZERO FILL SWITCH 

(1) 014370 016605 000012 MOV 12(SP),R5 7zPICKUP THE INPUT NUMBER 

(1) 014374 005003 CLR R3 :3CLEAR THE OUTPUT WORD 

(1) 014376 006105 1$: - ROL R5 ; ROTATE MSB INTO ‘‘C'* 

(1) 014400 000404 BR 3$ 7:50 DO MSR 

(1) 014402 006105 23: ROL RS 77 FORM THIS DIGIT 

(1) 014404 006105 ROL RS 

(1) 014406 006105 ROL 5 

(1) 014410 010503 MOV R5,R3 

(1) 014412 006103 3$: ROL R3 ::GET LSB OF THIS DIGIT 

(1) 016416 105337 ‘014516 DECB SOMODE si TYPE THIS DIGIT? 





I 
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014420 100016 BPL 7$ BR IF NO 

014422 042703 177770 . BIC #177770,R3 SIGET > OF JUNK 

014426 001002 BNE 4$ iz TEST FOR O 

0144350 005704 TST RS 3; SUPPRESS THIS 0? 

014432 001403 BEQ 5$ + BR If YES 

014434 005204 4$: INC RS DON'T SUPPRESS ANYMORE 0°S 


0 BIS #°0,R3 ZZMAKE THIS DIGIT ASCI! 

0 S$: BIS #' ,R3 : MAKE ASCII IF NOT ALREADY 
Pe MOVB R3,8$ 7;SAVE FOR TYPING 

2 TYPE ,8$ 3:GO TYPE THIS DIGIT 

4 7$: DECB SOCNT : ¢ COUNT BY 1 

014462 003347 BGT 2$ 7 3BR IF > oa TO DO 


BR IF 
014466 005204 INC R4 : HINSURE LAST DIGIT ISN'T A BLANK 
014470 000744 BR 2$ :GO DO THE LAST DIGIT 
014472 Bi Sepa 6$: MOV (SP)+,R5 TZRESTORE RS 


; R3 
014500 016666 000002 000004 MOV 2(SP) ,4(SP) Z:SET THE STACK FOR RETURNING 


00000 3 RETURN 
014512 000 8$: VTE @ ;sSTORAGE FOR ASCII DIGIT 
014513 000 -BYTE 0 :¢ TERMINATOR FOR TYPE ROUTINE 
014514 000 $SOCNT: .BYTE Q sOCTAL DIGIT COUNTER 
014515 000 SOFILL: .BYTE 0 ; ZERO FILL SWITCH 
014516 000000 SOMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 


.SBTTL BINARY TO ASCII AND TYPE ROUTINE 


LL E REE REEE ERE EERE RRA RARER ERR ER ERE 
:*THIS ROUTINE IS USED TO CHANGE A 16-3I1T BINARY NUMBER TO A 16-BIT 
a NUMBER AND TYPE IT. 

7 *CALL: 

:¢ MOV NUMBER , ~ (SP) 7 NUMBER TO BE TYPED 

3* TYPBN zi TYPE IT 


014520 010146 $TYPBN: MOV R1,-(SP) 7-SAVE_R1 ON THE STACK 
016601 000006 MOV 6(SP),R1 ‘ier THE INPUT NUMBER 
263 SEC :SET “'C’* SO CAN KEEP TRACK OF THE NUMBER OF BITS 
014530 112737 000060 014572 1$: MOVB #'°0,$BIN ;;SET CHARACTER TO AN ASCII ''0"’. 
oe ROL R1 ;;GET THIS BIT 


; DONE ? 
572 ADCB $BIN SINO==SET THE CHARACTER EQUAL TO THIS BIT 
572 TYPE , $BIN ::GO TYPE THIS BIT 

014552 000241 CLC 3: CLEAR ‘'C’' SO CAN KEEP TRACK OF BITS 
014554 000765 BR 1$ 350 DO THE NEXT BIT 

014556 012601 2$: MOV (SP)+,R1 POP THE STACK INTO R1 

014560 016666 000002 000004 MOV 2(SP) ,4(SP) =: ADJUST THE STACK 

014566 012616 MOV (SP)+, (SP) 

014570 000002 RTI i ;RETURN TO USER 


—_ 

nr RRR RRR AAR RRR AAAR AA AAA ANA AA BAA AA AA AAA AAA AAA OOO OOR 
me a a as a es a a a SB a tS tt Hh oH Hh HY SH 
ee Nee ee Nee eee ee aes es ae a a Sw i SS OS OS SYS ww www Ow we wr SS Sw SY YS IY SY www 


(1) i*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 


asp) 014572 000 000 $BIN: .BYTE 0,0 = STORAGE FOR ASCII CHAR. AND TERMINATOR 
1559 eal 

1560 .SBTTL ERROR HANDLER ROUTINE | 

(2) . LTE AAA AAA AA AREER EA EAA AERAREAAAREAAAEREAAERAHREAARAAA RAE RAAR AeA 
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122737 
001007 


113737 
004737 
000 
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001103 
001102 
002000 
001164 
001112 
001116 
000002 


164246 
020000 


015002 
001177 


000001 


001114 
016474 


164214 


001000 


001110 
001162 


001162 


001432 
001432 
001426 


164330 
164320 


001116 
001114 
164260 


001214 
014714 


164200 


001430 


J 
MACY11 30G(1063) 08-AUG-79 
ERROR HANDLER ROUTINE 


: *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 
:*THE SWITCH , ot on tancn BY THIS ROUTINE ARE: 
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*SW1 5= HALT ON ERROR 
3*SW13=1 INHIBIT ERROR TYPEOUTS 
7*SW10=1 BELL ON ERROR 
oa. LOOP ON ERROR 
7*CALL 
7* ERROR N 7 ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR 
CKSWR 3: TEST FOR CHANGE IN SOFT=SWR 
7$ INCB SERFLG :2SET THE ERROR FLAG 
BEQ 7$ sDON'T LET THE FLAG a TO ZERO 
MOV $TSTNM,aDISPLAY ; ;DISPLAY 4 2 | hae AND ERROR FLAG 
BIT #B1T10,aSWR ;;BELL ON ERROR 
BEQ 1$ Le. - SKIP 
TYPE , SBELL ZzRING BELL 
1$ INC SERTTL 72 COUNT THE NUMBER OF ERRORS 
MOV (SP) , SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
MOVB @SERRPC,$ITEMB + STRIP AND SAVE THE ERROR ITEM CODE 
BIT #B1T13,aSWR ZSKIP TYPEOUT IF SET 
BNE 20$ ::SKIP TYPEOUTS 
JSR PC, SERRTYP :GO TO USER ERROR ROUTINE 
208 TYPE , CRLF 
CMPB #APTENV, SENV 7ZRUNNING IN APT MODE 
BNE 2$ :ZzNO,SKIP APT ERROR REPORT 
MOVB SITEMB, “he ::SET ITEM NUMBER AS ERROR NUMBER 
‘JSR PC,SATY : REPORT FATAL ERROR TO APT 
21$: -BYTE 0 
-BYTE 0 
228: BR 223 7 APT ERROR LOOP 
es: TST aSwR ;zHALT ON ERROR 
BPL 3$ Zi SKIP IF CONTINUE 
HALT acm ON ERROR! 
CKSWR 7 TEST FOR CHANGE IN SOF T-SWR 
3$: BIT #B1T09,aSWR : LOOP ON ERROR SWITCH SET? 
BEQ 4$ +:BR ! F NO 
MOV $LPERR, (SP) : FUDGE RETURN FOR LOOPING 
4$: TST SESCAPE :CHECK FOR AN ESCAPE ADDRESS 
‘ BEQ 5$ 7 IBR IF NONE 
= MOV SESCAPE, (SP) 7 FUDGE RETURN ADDRESS FOR ESCAPE 
INC ERCNT : /UPDATE ERROR COUNT. 
BNE 10$ -/BUT DON'T LET IT OVERFLOW. 
_ DEC ERCNT + /KEEP AT 177977 IF OVERFLOW. 
BIC ROTATE ,UTEST :/REMOVE UNIT “FROM LIST OF GOOD ONES. 
RT] s/EXIT. 
.-SBITL ERROR MESSAGE TYPEOUT ROUTINE 


SF RAO RARAAAAAERRAREAAEAAAAAEAAAAAAAEAERAAAARARAEAEAARARARERE KARA AHS 


SEQ 0087 


aOR RRR RRR RARWNAR RAR RRA ARR RA AAA AAA AAA AAA AA AAA AA AA AOA OO OOOO OO 
a se ss as a a NJ SO Ss 2 SS Ss SP 9 2 9 So 2 NN 9 OP? 9 OO OS HS SS HS 
ee ee et ett e 


015016 
015020 
015024 


oO 

at ad 

Ww 
a a ed ced ced aed ed ed ed 


o 

—s 
AAA MA AAI 
OS 


001171 


001114 


001116 


001256 
015054 


001171 
015072 


001171 


001171 


015132 
000 
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ERROR MESSAGE TYPEOUT ROUTINE SEQ 0088 
:*THIS 7 USES THE ““ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE WHICH 

;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 

[AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYP 


, SCRLF 37 ‘CARRIAGE RETURN'' & "LINE FEED" 
MOV RO,-(SP) 7 SAVE RO 
CLR RO 77PICKUP THE ITEM INDEX 
BISB a4$1TEMB,RO 
BNE 1$ 44 ITEM NUMBER IS ZERO, JUST 
; TYPE THE PC OF THE ER ROR 
MOV SERRPC ,-(SP) + SAVE SERRPC FOR TYPEOUT 
: TERROR ADDRESS 
TYPOC £360 TYPE=-OCTAL ASCII(ALL DIGITS) 
BR 6$ T OUT 
1$: DEC RO : = ADJUST THE INDEX SO THAT IT WILI. 
ASL RO sé WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD #SERRTB,RO FORM TABLE POINTER 
MOV (RO) +,2$ $ IPICKUP “ERROR MESSAGE'’ POINTER 
BEQ 3$ :SKIP TYPEOUT IF NO POINTER 
TYPE +: TYPE THE ‘ERROR MESSAGE"' 
2s: .~ WORD 0 72° ERROR MESSAGE’ POINTER GOES HERE 
TYPE -SCRLF ic ‘CARRIAGE RETURN'' & ‘LINE FEED'’ 
3$: MOV (RO) +,4$ : PICKUP ‘DATA HEADER’ POINTER 
BEQ 5$ ti SKIP TYPEOUT IF 0 
TYPE : iiTYPE THE "DATA HEADER’ 
4$: -WORD 0O 72’ DATA HEADER’’ POINTER GOES HERE 
TYPE SCRLF CARRIAGE RETURN'' & ‘LINE FEED*’ 
5$: MOV (RO) ,RO :3PI CKUP ‘DATA TABLE" POINTER 
BNE 7$ :GO TYPE THE DATA 
6$: MOV (SP)+,RO + :RESTORE RO 
TYPE ~SCRLF ::' ‘CARRIAGE RETURN'' & ‘LINE FEED’ 
- RTS PC : ;RETURN 
MOV @(RO)+,-(SP) : SAVE a(RO)+ FOR TYPEOUT 
TYPOC 32:GO TYPE--OCTAL ay tthe DIGITS) 
TST (RO) :2IS THERE ANOTHER NUMBER 
BEQ 6$ IF NO 
TYPE ot +: TYPE TWO(2) SPACES 
BR 7$ ;;LOOP 
8$: ASCIZ ¥¢ F sz TWO(2) SPACES 


-EVEN 
-SBTTL SCOPE HANDLER ROUTINE 


AIO IIIOIUIIIDIOISIIIIIUIIIIOIIIOIIOIIIOOIUISIUIOIUIOIOIOIOIOIOUIOIDIIDIDIIDIOIOIUIDIUIDIO OnE 
“THIS ROUTINE CONTROLS THE LOOPING OF SUBTFSTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

is THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
3 L 


OOP ON TEST 

1 INHIBIT ITERATIONS 

3 *SWO9=1 LOOP ON ERROR 

; 1 LOOP ON TEST IN SWR<7:0> 


— 
nan ANA AR RRR RRR RAR AAA AAA AAA AAA AAA AAA AAA AA AAA AOA OCS OAAOOAAOOOA OS 


Ne NN SS SY SS YS Sw www wees 


L 
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.SBITL TTY JNPUT ROUTINE 


FL AAA AAAAAAARERAAAAAAAAARAAARAKKRERAERAERARAARAARRARAAAKRKARERE AERA ES 


08=AUG-79 10:45 SCOPE HANDLER ROUTINE SEQ 0089 
:* SCOPE +; SCOPE=10T 
015136 $SCOPE : 
015136 104407 CKSWR ::TEST FOR CHANGE IN SOF T=-SWR 
015140 104407 CKSWR 
015142 032777 040000 163770 1$: BIT #B1T14,aSwR :;LOOP ON PRESENT TEST? 
015150 001114 BNE SOVER “YES IF SwW14=1 
:MMAHASTART OF CODE FOR THE XOR TeSTERMenee 
015152 000416 $XTSTR: BR 6$ ;1F RUNNING ON THE "'XOR'' TESTER CHANGE 
‘THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
015154 013746 000004 MOV @#ERRVEC,-(SP) =:SAVE THE CONTENTS OF THE ERROR VECTOR 
015160 012737 015200 000004 MOV #5$, AERRVEC :iSET FOR TIMEOUT 
015166 005737 177060 1ST a4#177060 TIME OUT ON XOR? 
015172 012637 MOV (SP) +, AMERRVEC : :RESTORE THE ERROR VECTOR 
015176 $SVLAD O TO THE NEXT TEST 
1 022626 5$: CMP (SP) +, (SP)+ *=CLEAR THE STACK AFTER A TIME OUT 
015202 012637 000004 MOV (SP)+,@WERRVEC ;;RESTORE THE ERROR VECTOR 
015206 000423 BR 7$ LOOP ON THE PRESENT TEST 
015210 6$%::#AAAAEND OF CODE FOR THE XOR’ TESTERAMMAM 
015210 032777 000400 163722 BIT #B1T08,aSwWR :;LOOP_ON SPEC. TEST? 
015216 001404 BEQ 2$ :BR IF NO 
015220 127737 163714 001102 CMPB = @SWR, $TSTNM ‘ON THE RIGHT TEST? SWR<7:0> 
015226 001465 BEQ SOVER ::BR IF YES 
015230 105737 001103 28: TSTB = $ERFLG >:HAS AN ERROR OCCURRED? 
015234 001421 BEQ 3$ ::BR IF NO 
015236 123737 001115 001103 CMPB = $ERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
015244 101015 BHI $ ;:BR IF NO 
015246 032777 001000 163664 BIT #B1T09, aSwR ::LOOP ON ERROR? 
015254 001404 BEQ 4 ::BR IF NO 
015256 013737 001110 001106 7$: MOV SLPERR,S$LPADR ::SET LOOP ADDRESS TO LAST SCOPE 
015264 000446 BR SOVER 
015266 105037 001103 4$: CLRB = SERFLG 72: ZERO THE ERROR FLAG 
015272 005037 001160 CLR $TIMES z2CLEAR T HE NUMBER OF ITERATIONS TO MAKE 
015276 000415 BR 1$ “ESCAPE TO THE NEXT TEST 
015300 032777 004000 163632 38: BIT #B1T11,aSWR : INHIBIT ITERATIONS? 
015306 001011 BNE 1$ BR IF YES 
015310 005737 001202 TST $PASS icf FIRST PASS OF PROGRAM 
015314 001406 BEQ 1$ INHIBIT ITERATIONS 
015316 005237 001104 INC $ICNT ; INCREMENT ITERATION COUNT 
015322 023737 001160 001104 CMP STIMES,SICNT “CHECK THE NUMBER OF ITERATIONS MADE 
015330 002024 BGE sov ER CBR IF MORE ITERATION REQUIRED 
015332 012737 000001 001104 1$: MOV 1,$1CNT ;ZREINITIALIZE THE ITERATION COUNTER 
015340 013737 015416 001160 MOV SMXCNT STIMES ::SET NUMBER OF ITERATIONS TO DO 
346 105237 001102 $SVLAD: INCB $TSTNM >: COUNT TEST NUMBERS 
015352 113737 001102 001200 MOVB  $TSTNM,STESTN ::SET TEST NUMBER IN APT MAILBOX 
15360 011637 001106 MOV (SP) ,$LPADR ::SAVE SCOPE LOOP ADDRESS 
364 011637 001110 MOV (SP) ,$LPERR : SAVE ERROR LOOP ADDRESS 
015370 005037 001162 CLR SESCAPE CLEAR THE ESCAPE FROM ERROR ADDRESS ~ 
015374 112737 000001 001115 MOVB  #1,$ERMAX SONLY ALLOW ONE (1) ERROR ON NEXT TEST 
02 013777 001102 163532 $0VER: MOV $TSTNM, aDISPLAY :;DISPLAY TEST 
015410 013716 001106 MOV $LPADR. (SP) + FUDGE RETURN MARES 
015414 000002 RTI SIFIXES PS 
015416 003720 SMXCNT: 2000 + MAX. NUMBER OF ITERATIONS 
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-1 
CVKWAC P11 08=-AUG-79 10:45 Y INPUT SEQ 0090 


Fee Ee ate at ee et, Tae ate Tati an ai Tate Tain eat cin i Dt ee ee Te St, a i i t,t a ee Et a at te ee et ee i te, ee, ee et Ee Te at a ee a a a 
ee a a a a a a a a a a a a ae ee ae 


-ENABL LSB 


LL RRA RARER ERR REE RREE AREER REE 
T*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

> *ROUTINE IS oer F FROM THE TRAP HANDLER, AND WILL 

>*SERVICE THE TEST FOR CHANGE IN SOFTWARE SwITCH REGISTER TRAP CALL 
*WHEN OPERATING IN TTY FLAG MODE. 


015420 022737 000176 001140 $cKSUR: CMP #SWREG, SWR iz1S THE SOFT-SWR SELECTED? 
015426 001074 BNE 15$ ; BRANCH IF NO 
015430 105777 163510 TSTB a$TKS : CHAR THERE ? 
015434 100071 BPL 15$ :1F NO, DON'T WAIT AROUND 
015436 117746 163504 MOVB @a$TKB,-(SP) 33 SAVE THE CHAR 
015442 042716 177600 BIC #*(177, (SP) sSTRIP-OFF THE ASCII 
015446 022726 000007 CMP #7, (SP)+ 21S IT A CONTROL G? 
015452 001062 BNE 15$ 32NO, RETURN TO USER 
015454 123727 001134 000001 CMPB $AUTOB,41 77ARE WE RUNNING IN AUTO-MODE? 
015462 001456 BEQ 15$ 7 BRANCH IF YES 
015464 104401 016145 TYPE -SCNTLG 7zECHO THE CONTROL-G (*G) 
015470 104401 016152 $GTSWR: TYPE . SMSWR 73 TYPE CURRENT CONTENTS 
015474 013746 000176 MOV SWREG.-(SP) 2s SAVE SWREG FOR TYPEOUT 
015500 104402 TYPOC G0 eek tan ASCII(ALL DIGITS) 
015502 104401 016163 TYPE , SMNEW +S PROMPT FOR NEW SWR 
015506 005046 19$: CLR -(SP) 7:CLEAR COUNTER 
015510 005046 CLR -(SP) 77 THE NEW SWR 
015512 105777 163426 /$: TSTB a$TKS 4g THERE? 
015516 100375 BPL 7$ ; IF NOT TRY AGAIN 
015520 117746 163422 MOVB a$TKB,-(SP) 7zPICK UP CHAR 
015524 042716 177600 BIC #°(177, (SP) :i:MAKE IT 7-BIT ASCII 
015530 021627 000025 9$: CMP (SP) ,425 3z1S IT A CONTROL-U? 
015534 001005 BNE 10$ ; BRANCH IF NOT 
015536 104401 016140 TYPE SCNTLU 22 YES. ECHO CONTROL-U (“U) 
015542 062706 000006 20$: ADD #6,SP ; IGNORE PREVIOUS INPUT 
015546 000757 BR 19$ SZLET’ S TRY IT AGAIN 
015550 021627 000015 10$: CMP (SP) 415 i:IS IT A <CR>? 
015554 001022 16$ ‘3 CH IF NO 
015556 005766 000004 TST 4(SP) :7YES, IS IT THE FIRST CHAR? 
015562 001403 BEQ 11$ re CH IF YES 
015564 016677 000002 163346 MOV 2(SP) ,aSWR 77 SAVE NEW SWR 
015572 2706 000006 11$: #6, 7:CLEAR UP STACK 
015576 104401 001171 14$: TYPE ,$CRLF : ECHO <CR> AND <LF> 

123727 001135 000001 CMPB SINTAG,41 7 RE-ENABLE TTY KBD INTERRUPTS? 
015610 BNE 15 32 CH IF NOT 
015612 012777 000100 163324 MOV #100, a$TKS ‘+; ;RE-ENABLE TTY KBD INTERRUPTS 
015620 000002 15$: RTI 7 ;RETURN 
015622 004737 016406 16$: JSR PC, $TYPEC 7ZECHO CHAR 
015626 021627 000060 CMP (SP) ,460 7: CHAR < 0? 
015632 002420 BLT 18$ > BRANCH IF YES 
015634 021627 000067 CMP (SP) ,467 : CHAR > 7? 


015640 003015 BGT 18$ 3 BRANCH IF YES 


N 
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11» 08-AUG-79 10:45 Y INPUT ROUT! 
015642 000060 BIC #60, (SP) + zzSTRIP-OFF ASCII 
015646 000002 TST 2(SP) t:I1S THIS THE FIRST CHAR 
015652 BEQ 17$ ; ;BRANCH I 
015654 ASL (SP) sNO, SHIFT PRESENT 
015656 ASL (SP) +: CHAR OVER TO MAKE 
015660 ASL (SP) :: ROOM FOR NEW ONE. 
015662 000002 17$: INC 2(SP) ::KEEP COUNT OF CHAR 
015666 177776 BIS -2(SP), (SP) [SET IN NEW CHAR 
015672 RR 7$ ;;GET THE NEXT ONE 
015674 001170 18$: TYPE SQUES SZ TYPE ?<CR><LF> 
015700 20$ ::SIMULATE CONTROL-U 
.DSABL LSB 
SLR A ARERR AAR AEERARERREREARAEARARARRERERARERERERRERE HE 
:STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
** &, 
te RDCHR zz INPUT A SINGLE CHARACTER FROM THE TTY 
:* RETURN HERE +: CHARACTER IS ON THE STACK 
i* t:WITH PARITY BIT STRIPPED OFF 
015702 $RDCHR: MOV (SP) ,=(SP) ::PUSH DOWN THE PC 
015704 000004 000002 MOV 4(SP) ,2(SP) +: SAVE THE PS 
015712 163226 1$ TSTB asTKs + WAIT FOR 
015716 BPL 1$ *:A CHARACTER 
015720 163222 000004 MOVB  a@$TKB,4(SP) SZREAD THE TTY 
015726 177600 000004 BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 
5734 000004 000023 CMP 4(SP) ,423 ::IS IT A CONTROL-S? 
015742 BNE 3$ + :BRANCH IF NO 
015744 163174 2$: TSTB = a$TKS :;WAIT FOR A CHARACTER 
015750 BPL 2$ SLOOP UNTIL ITS THERE 
015752 163170 MOVB  a$TKB,-(SP) ::GET CHARACTER 
015756 177600 BIC #°(177, (SP) *:MAKE IT 7-BIT ASCII 
015762 CMP (SP)+,4#21 ::I1S IT A CONTROL-Q? 
015766 BNE 2$ iif NOT DISCARD IT 
015770 BR 1$ :: RESUME 
015772 000004 000140 3$: CMP 4 (SP) ,#140 SIS IT UPPER CASE? 
16000 BLT 4$ * BRANCH IF YES 
016002 000004 000175 CMP 4 (SP) ,#175 SITS IT A SPECIAL CHAR? 
016010 BGT 4$ ::BRANCH IF YES 
016012 000040 000004 BIC #60,4(SP) ;;MAKE IT UPPER CASE 
016020 4$: RTI :GO BACK TO USER 
POOTITITITITITITITITITITITITITITITITTT TTT TTT TTT Tt ttt ttt ttt ttt 
STHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 
S*CALL: 
ie RDLIN :: INPUT A STRING FROM THE TTY 
* RETURN HERE ‘ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
i* +: TERMINATOR WILL BE A BYTE OF ALL O 
016022 $SRDLIN: MOV R3,-(SP) :SAVE R3 
016024 016130 1$: MOV ASTTYIN,R3 IGET ADDRESS 
016030 016140 2$: CMP ASTTYIN+8.,R3 > BUFFER FULL? 
16034 BLOS 4$ S:BR IF YES 
016036 RDCHR *°G0 READ ONE CHARACTER FROM THE TTY 
016040 MOVB (SP) +, (R3) + GET. CHARACTER 
t 
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016152 005015 via 020122 $MSWR: .ASCIZ <15><12>/SWR = /” 


016163 040 047040 053505 SMNEW: .ASCIZ / NEW = 
016170 036440 000040 


g 


-SBTTL TYPE ROUTINE 


CVKWAC.P11 = OB=AUG=79 10:45 ¥ INPUT ROUT! SEQ 0092 
(1) 016062 122713 000177 108:  CMPB #177, (R3) 3318S _1T A RUBOUT 
(1) 016046 001003 BNE 3$ SKIP IF NOT 
(1) 016050 104401 001170 4$: TYPE =, $QUES ;; TYPE A_'?° 
(1) 016054 000763 BR i$ ::CLEAR THE BUFFER AND LOOP 
(1) 616056 111337 016126 38: MOVB = (R3) , 98 37ECHO THE CHARACTER 
(1) 016062 106401 016126 TYPE =—_ ,. 98 
(1) 016066 122723 000015 CMPB #15, (R3)+ 73CHECK FOR RETURN 
(1) 016072 001356 BNE 2$ 7:LOOP IF NOT RETURN 
(1) 016074 105063 177777 CLRB = =1(R3) 7:CLEAR RETURN (THE 15) 
(1) 016100 104401 001172 TYPE =, SLF :;TYPE A LINE FEED 
(1) 016104 012603 MOV (SP) +,R3 7 ;RESTORE R3 
(1) 016106 011646 MOV (SP) ,=(SP) ;ZADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 016110 016666 000004 000002 MOV 4 (SP) ,2(SP) 3: FIRST ASCII CHARACTER ON IT 
(1) 016116 012766 016130 000004 MOV WSTTYIN, 4 (SP) 
(1) 016124 000002 RTI ; ;RETURN 
(1) 016126 9S: BYTE 0 :? STORAGE FOR ASCII CHAR. TO TYPE 
(1) 016127 000 -BYTE 0 ; TERMINATOR 
(1) 016130 000010 STTYIN: .BLKB_ 8. RESERVE 8 BYTES FOR TTY INPUT 
(1) 016140 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12> 33 CONT ROL *U"' 
(1) 016145 136 006507 000012 $CNTLG: -ASCIZ /*G/<15><12> :CONTROL ''G 
(1) 
(1) 
(1) 
st 
(2) —MeABAAAASZLALA£L£L A SELES ESELES ARES ER RARER EAR R AR RRARR RAR ALAS SAS SS OD | 
(1) SAROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A Q BYTE. 
(1) ;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
(1) ; *NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) > *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
oh > *NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
(1) *CALL: 
(1) i) USING A TRAP INSTRUCTION 
D ‘in «PE =o MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
te 
(1) ie TYPE 
1) it ME SADR 
aD i 
(1) 016174 105737 001157 $TYPE: TSTB  $TPFLG 71S THERE A TERMINAL? 
(1) 016200 100002 BPL 1$ 3;BR IF YES 
(1) 016202 000000 HALT >;HALT HERE IF NO TERMINAL 
(1) 016204 000430 BR 3$ 7 LEAVE 
(1) 016206 010046 1$: MOV RO, -(SP) SAVE RO 
(1) 016210 017600 000002 MOV a2 (SP) ,RO 3:GET ADDRESS OF ASCIZ STRING 
(1) 016214 122737 000001 001214 CMPB = MAPTENV,SENV —s ; ; RUNNING IN APT MODE 
(1) 016222 001011 BNE 6 :NO,GO CHECK FOR APT CONSOLE 
(1) 016224 132737 000100 001215 BITB #APTSPOOL,SENVM ;;SPOOL MESSAGE TO APT 
(1) 016232 001405 BEQ 62$ 37NO,GO CHECK FOR CONSOLE 
(1) 016234 010037 016244 MOV RO,61$ ::SETUP MESSAGE ADDRESS FOR APT 
(1) 016240 004737 016464 . JSR PC, SATY3 > 7SPOOL MESSAGE TO APT 
(1) 016244 000000 61$: .WORD 0 MESSAGE ADDRESS 
(1) 016946 132737 000040 001215 628: BITE #APTCSUP,SENVM ;:APT CONSOLE SUPPRESSED 
(1) 016254 001003 BNE 60$ ::YES,SKIP TYPE OUT 


. 
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-SBTTL APT COMMUNICATIONS ROUTINE 


~MmALAAAASAALALASALASAAASAARARALARSA RES RRA RAR RASA RERS RAR ARES ARSE SS | 


(1) 016256 112046 2$: MOVB (RO) +,=(SP) .sPUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 016260 001005 BNE 4$ : BR IF IT ISN‘T THE TERMINATOR 
(1) 016262 005726 TST (SP)+ 7 IF TERMINATOR POP IT OFF THE STACK 
(1) 016264 012600 60$: MOV (SP) +,RO TERESTORE RO 
(1) 016266 062716 000002 3$: ADD #2, (SP) + ADJUST RETURN PC 
(1) 016272 000002 RTI : TURN 
(1) 016274 122716 000011 4$: CMPB MHT , (SP) >:BRANCH IF <HT> 
(1) 016300 14 BEQ 8$ 
(1) 016302 122716 000200 CMPB ACRLF , (SP) 7 ;BRANCH IF NOT <CRLF> 
(1) 016306 BNE 5$ 
(1) 016310 005726 TST (SP)+ :3POP <CR><LF> EQUIV 
(1) 016312 104401 TYPE 73 TYPE A CR AND LF 
(1) 016314 001171 SCRLF 
(1) 016316 105037 016452 CLRB SCHARCNT 7:CLEAR CHARACTER COUNT 
(1) 016322 000755 BR 2$ ;3GET NEXT CHARACTER 
(1) 016324 004737 016406 5$: JSR PC, STYPEC 7360 iY THIS CHARACTER 
(1) 016330 123726 001156 " 68: CMPB SFILLC,(SP)+ zs1S IT TIME FOR 4 on CHARS. ? 
(1) 016334 001350 BNE 321F NO GO GET NEXT CHAR. 
(1) 016336 013746 001154 MOV $NULL ,~ (SP) 3::GET # OF FILLER CHARS. NEEDED 
(1) ; AND THE NULL CHAR. 
(1) 016342 105366 000001 7$: DECB 1(SP) ::DOES A NULL NEED TO BE TYPED? 
(1) 016346 002770 BLT 6$ :3BR IF NO--GO POP THE NULL OFF OF STACK 
(1) 016350 004737 016406 JSR PC ,STYPEC 3:GO TYPE A NULL 
(1) 016354 105337 016452 DECB SCHARCNT :2DO NOT COUNT AS A COUNT 
+ : 016360 000770 BR 7$ ; -LOOP 
Ht ;HORIZONTAL TAB PROCESSOR 
(1) 016362 112716 000040 8$: MGVB #* ,(SP) 7 sREPLACE TAB WITH SPACE 
(1) 016366 004737 016406 9$: JSR PC, $TYPEC 23 TYPE A SPACE 
(1) 916372 132737 000007 016452 BITB #7, SCHARCNT : ;BRANCH IF NOT AT 
(1) 016400 001372 BNE 9$ STOP 
(1) 016402 005726 TST (SP)+ : POP SPACE OFF STACK 
(1) 016404 000724 BR 2$ ::GET_NEXT CHARACTER 
(1) 016406 105777 162536 $TYPEC: TSTB a$TPS ;zWAIT UNTIL PRINTER IS READY 
(1) 016412 100375 BPL STYPEC 
(1) 016414 116677 000002 162530 MOVB 2(SP) ,a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 016422 122766 000015 000002 CMPB #CR,2(SP) 21S CHARACTER A CARRIAGE RETURN? 
(1) 016430 001003 BNE 1$ BRANCH IF NO 
(1) 016432 105037 016452 CLRB SCHARCNT : :YES=~CLEAR CHARACTER COUNT 
(1) 016436 000406 BR STYPEX 
(1) 016440 122766 000012 000002 1$: CMPB ALF, i? ‘TS CHARACTER A LINE FEED? 
(1) 016446 001402 BEQ $TYP $ TBRANCH IF YES 
(1) 016450 105227 INCB (POs : COUNT THE CHARACTER 
(1) 016452 000000 SCHARCNT:.WORD 0 >: CHARACTER COUNT STORAGE 
+ : 016454 000207 STYPEX: RTS PC 
565 
(2) 
(1) 016456 112737 000001 016722 $ATY1: MOVB #1,$FFLG 3:TO REPORT FATAL ERROR 

(1) 016464 112737 000001 016720 $ATY3: MOVB #1, SMFLG 22TO TYPE A MESSAGE 

(1) 016472 000403 BR SATYC 

(1) 016474 112737 000001 016722 $ATY4: MOVB #1,$FFLG :7TO ONLY REPORT FATAL ERROR 

(? 016502 SATYC: 


016502 010046 MOV RO,~(SP) ;=PUSH RO ON STACK 
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(3) 016504 010146 V R1,-(SP) ::PUSH R1 ON STACK 

(1) 016506 105737 016720 TSTB = SMFLG :# SHOULD TYPE A MESSAGE? 
(1) 016512 001450 BEQ 5 :IF NOT: BR 

(1) 016514 122737 000001 001214 CMPB ss #APTENV, SENV  S OPERATING UNDER APT? 

(1) 016522 001031 BNE 33 NOT: 

(1) 016524 132737 000100 001215 BITB § #APTSPOOL,SENVM ::SHOULD SPOOL MESSAGES? 
(1) 016532 001425 BEQ 3$ 7:IF NOT: BR 

(1) 016534 017600 MOV @4 (SP) RO GET MESSAGE ADDR. 

(1) 016540 062766 000002 000004 ADD #2,4(SP) : ;BUMP RETURN ADDR. 
(1) 6546 005737 001174 1$: TST SMSGTYPE 23 SEE IF DONE W/ LAST XMISSION? 
(1) 016552 001375 BNE + ZIF NOT: WAIT 

(1) 016554 010037 001210 Vv RO, $MSGAD ::PUT ADDR IN MAILBOX 

(1) 016560 105720 2$: TSTB (RO) + ‘FIND END OF MESSAGE 

(1) 016562 001376 $ 

(1) 016564 163700 001210 SUB $MSGAD ,RO ::SUB START OF MESSAGE 

(1) 016570 ASR 0 ::GET MESSAGE LNGTH IN WORDS 
(1) 016572 010037 001212 MOV RO, $MSGLGT +:PUT LENGTH IN MAILBOX 

(1) 016576 012737 000004 001174 mov #4, SMSGTYPE :: TELL APT TO TAKE MSG. 

(1) 01 017637 016632 38: MOV a4 (SP) ,4$ ::PUT MSG ADDR IN JSR LINKAGE 
(1) 016614 766 000002 000004 ADD #2,4(SP) -BUMP RETURN ADDRESS 
(3) 016622 013746 177776 MOV 177776, (SP) PUSH 199776 ON STACK 

(1) 016626 004737 016174 JSR PC, $TYPE *:CALL TYPE MACRO 

(1) 016632 4$: .WORD 0 

(1) 016634 S$: 

(1) 016634 105737 016722 108: TSTB  ~—s SFFLG ::SHOULD REPORT FATAL ERROR? 
(1) 016640 001416 BEQ 12% ::IF NOT: BR 

(1) 016642 005737 001214 TST SENV 3: RUNNING UNDER APT? 

(1) 016646 001413 BEQ 12$ NOT: BR 

(1) 016650 005737 001174 118: TST SMSGTYPE + FINISHED LAST MESSAGE? 
(1) 016654 001375 BNE 11$ 7:]F NOT: WAIT 

(1) 016656 017637 001176 MOV @4(SP),$FATAL  ;:GET ERROR # 

(1) 01 2766 000004 ADD #2,4(SP) :BUMP RETURN ADDR. 
(1) 016672 005237 001174 INC SMSGTYPE :e TELL APT TO TAKE ERROR 

(1) 016676 105037 016722 12$: CLRB = $FFLG “CLEAR FATAL FLAG 

(1) 016702 105037 016721 CLRB = $LFLG +:CLEAR LOG FLAG 

(1) 016 105037 016720 CLRB $MFLG :7CLEAR MESSAGE FLAG 

(3) 016712 012601 MOV (SP)+,R1 ‘POP STACK INTO R1 

<3) 016714 012600 MOV (SP) +.RO : POP STACK INTO RO 

(1) 016716 000207 RTS PC RETURN 

(1) 016720 000 SMFLG: .BYTE >:MESSG. FLAG 

(1) 016721 000 SLFLG: .BYTE 0 tLOG FLAG 

(1) 016722 000 SFFLG: .BYTE 0 >: FATAL FLAG 

(1) 016724 VEN 

(1) 200 APTSIZE=200 

(1) 1 APTENV=001 

(1) 000100 APTSPOOL=100 

(1) 0 APTCSUP=040 

1566 .SBTTL POWER DOWN AND UP ROUTINES 

(2) cn: nah Maar oe eS ee tare ot Pk ee 
(1) OWER DOWN ROUT INE 

(1) 016724 012737 017064 000024 el ASILLUP, a#PWRVEC :gSET FOR FAST UP 

(1) 016732 012737 000340 000026 mov #340, QAPWRVEC+2 ; 0:7 

(3) 016740 010046 MOV RO,-(SP) ery RO ON STACK 

(3) 016742 010146 MOV R1.-(SP) *=PUSH R1 ON STACK 


E 8 
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* 
;*THIS ROUTINE WILL PROTECT THE PROGRAM 
ssf ROR INTERUPTS (BAD ONES). 


:*THE TRAP CATCHER. IS SET UP FOR 
73 he JSR PC,RO 
** 


& 


CVKWAC P11 08-AUG-79 10:45 POWER DOWN AND UP ROUTINES SEQ 0095 
(3) 016744 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
(3) 016746 010346 MOV R3,-(SP) +:PUSH R3 ON STACK 
(3) 016750 010446 MOV R4,-(SP) +:PUSH R4 ON STACK 
(3) 016752 010546 MOV R5,-(SP) ; PUSH R5 ON STACK 
(3) 016754 017746 162160 MOV aSwR,-(SP) : :PUSH @SWR ON STACK 
(1) 016760 010637 017070 MOV SP, $SAVR6 AVE SP 
(1) 016764 012737 016776 000024 MOV #SPWRUP, APWRVEC eer UP VECTOR 
(1) 016772 000000 HALT 
(1) 016774 000776 BR .-2 ZHANG UP 
(2) RARER ARERR REREREEEEERRRATH EE 
(1) “POWER al ROUT INE 
(1) 016776 012737 017064 000024 $PwRUP: #SILLUP, a#PWRVEC iSET FOR FAST DOWN 
(1) 017004 013706 017070 mov SSAVR6, SP ::GET SP 
(1) 017010 005037 017070 CLR SSAVR6 *:WAIT LOOP FOR THE TTY 
(1) 017014 005237 017070 1$: INC $SAVR6 ::WAIT FOR THE INC 
(1) 017 001375 BNE 1$ WORD 
(3) 017022 012677 162112 MOV (SP)+,aSWR +:POP STACK INTO aSwR 
(3) 017026 012605 MOV (SP) +.R5 +:POP STACK INTO R5 
(3) 017030 012604 MOV (SP) +.R4 *:POP STACK INTO R4 
(3) 017032 012603 MOV (SP) +,R3 +:POP STACK INTO R3 
(3) 017034 012602 MOV (SP)+.R2 :POP STACK INTO Re 
(3) 017036 012601 MOV (SP)+_R1 ::POP STACK INTO R1 
(3) 017060 012600 MOV (SP)+.RO +:POP STACK INTO RO 
(1) 017042 012737 016724 000024 MOV ASPWRON, @APWRVEC’ :>;SET UP THE POWER DOWN VECTOR 
(1) 017050 012737 000340 000026 MOV #340, @#PWRVEC +2 ;;PRIO:7 
(1) 017056 104401 TYPE REPORT THE POWER FAILURE 
(1) 017060 017072 SPWRMG: .WORD  $POWER +:POWER FAIL MESSAGE POINTER 
(1) 017062 000002 RT] 
(1) 017064 000000 $SILLUP: HALT ::THE POWER UP SEQUENCE WAS STARTED 
(1) 017066 000776 BR .-2 +: BEFORE THE POWER DOWN WAS COMPLETE 
(1) 017070 000000 — SSAVR6: 0 ‘PUT THE SP HERE 
(1) 017072 005015 047520 042527 $POWER: .ASCIZ <15><12>' POWER'’ 
(1) EVEN 
567 : 
5 
5 
5 
5 
5 
5 


574 : 

575 :*ILLEGAL INTERRUPTS OR INTERRUPTS TO THE WRONG VECTOR 
ha :*GOTO THE VECTOR AND PCITK UP THE °’.+2°° AS AN ADDRESS 
578 :*AND ''4700°' AS NEW STATUS. 

579 ; *THE -+2 AS A PC WILL CAUSE EXECUTION OF THE wale PC -RO'’ (AN ILLEGAL INSTR.). 
580 -*AND TRAP TO LOCATION '4''. IN LOCATION 4 WE HAVE A 

581 S*POINTER HERE. IF THIS CONDITION CAUSES A TRAP TO LOC. 4. 
582 :*WE WILL REPORT IT IN THE SAME MANNER THAT WER WOULD 

583 :*REPORT ANY OTHER ERROR. 

84 :*IF A BUSS ERROR TRAP DID OCCUT AND CAUSE A TRAP TO 4. 

85 . z*WE WILL HALT. 


— so ss a SS ot ss 
Ww 
o 


86 
87 017102 011637 017146 IOTRD: MOV (6), TRTO GET WHERE WE CAME TO. 
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CVKWAC.P11 = OB=AUG=79 10:45 POWER DOWN AND UP ROUTINES SEQ 0096 
1588 017106 162737 000004 017146 SUB #4, TRTO ;FORM READ ADDR. 
1590 017114 023727 017146 001000 CMP TRTO,#1000 ;DID TRAP FROM LESS THAN ADDR. 7000? 
123) 017122 003402 BLE ef [NO=CONT INUE . 
1593 017124 006000 1$: HALT A BUSS ERROR TIME OUT TRAP BROUGHT US HERE. 
123% ADDRESS CONTAINED IN TRTO. 
1396 017126 000776 BR $ ;DON'T ALLOW CONTINUE. 
1598 017130 016637 000004 017150 28: MOV 4(6) , TRFRO :GET TRAPPED FROM ADDR. 
1599 017136 062706 000004 ADD #4, SP ;/ADD #4 TO STACK POINTER. 
, } ;  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1601 017142 104004 ERROR 4 ;ERROR! ILLEGAL INTERRUPT OR 
1602 : INTERRUPT TO WRONG VECTOR. 
1603 IF TEST NO. IS LESS THAN 10,ITS 
1604 [LIKELY (BUT NO EXCLUSIVELY)TO BE A 
1605 :DEVICE OTHER THAN THE DEVICE UNDER TEST. 
1606 IF THE INTERRUPT OCCURED 
1607 :DURING AN INTERRUPT TEST, I'D 
1608 ; SUSPECT A PROBLEM WITH THE DEVICE UNDER TEST. 
1609 IF THE ADDRESS THE INTERRUP 
1610 | :VECTORED TO IS WITHIN THE RANGE. OF 
1611 ;VECTORS ASSIGNED TO THE DEVICE. 
1612 ;THEN I°D SUSPECT THE DEVICE 
1613 ;INTERRUPTD ILLEGALLY. 
1614 ;1F THE ADDRESS THE INTERRUPT 
1615 :VECTORED TO IS OUTSIDE OF THE 
1616 :RANGE ASSIGNED TO THE DEVICE 
1617 :1'D SUSPECT THAT THE 
1618 :DEVICE PUT THE WRONG INTERRUPT 
1619 :VICTOR ON THE BUS DURING THE INTERRUPT 
1620 : PROCESS. 
1621 NOTE : 
1622 :FOR THIS ERROR ~ DON'T USE 
1623 “LOOP ON ERROR’ OPTION. 
1624 ZALSO EXPECT THAT THE INTERRUPT TEST To 
1625 cWILL REPOT THAT THE DEVICE DIDN'T 
16.26 ; INTERRUPT. 
1627 :FOLLOW THE RECOMMENDED PROCEEDURE 
1628 > IN THE DOCUMENT (ON THIS DIAGNOSTIC) 
1629 [FOR LOOPING ON TEST. 
ie 
; ; SSS$SSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1632 017144 000002 RTI 
1633 017146 000000 TRTO: WORD 0 :CONTAINS ADDR. WE TRAPPED OR INTERRUPTED TO. 
1634 017150 000000 TRFRO: .WORD 0 :CONTAINS ADDR. WE TRAPPED OR INTR. FROM. 
1635 .SBTTL TRAP DECODER 
(2) CLA AAAAAAEARAAEAAEEA EATER EATER ARRARAAKARERERAREARAERORARAA EERE 
(1) *THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
a) [*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


G & 
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CVKWAC P17 08-AUG-79 10:45 TRAP DECODER SEQ 0097 


ee THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT wIil 
;*GO TO THAT ROUTINE. : 


017152 010066 STRAP: MOV RO,-(SP) 3 SAVE_RO 

017154 016600 000002 MOV 2(SP) ,RO tt TRAP ADDRESS 
017160 005740 TST -(RO) KUP BY 2 

017162 111000 MOVB (RO) ,RO ::GET RIGHT BYTE OF TRAP 
017164 006300 ASL RO [:POSITION FOR INDEXING 
017166 016000 017206 MOV $TRPAD (RO) .RO ‘TINDEX TO TABLE 

017172 000200 RTS RO 3:G0 TO ROUTINE 


3zTHiS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


017174 011646 $TRAP2: MOV (SP) ,-(SP) 7zMOVE THE PC DOWN 
017176 016666 000004 000002 MOV 4(SP) ,2(SP) ;:MOVE THE PSW DOWN 
017204 000002 RT] 7 sRESTORE THE PSW 


-SBTTL TRAP TABLE 


3*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


ee ee ae ee ee a ee ee ee a aa ee ee al a a a ee 


A=W WWW WW NWWAWNNNW ek kk tk td ht = 4 
Nee eNews ee eee es as ie we ee ee we we ee es 


5 ROUT INE 
017206 017174 $TRPAD: .WORD $TRAP2 
017210 016174 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
017212 014316 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
917214 014272 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
017216 014332 $STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
017220 014520 STYPBN ;;CALL=TYPBN TRAP+5(104405) TYPE BINARY (ASCII) NUMBER 
017222 015470 $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
017224 015420 $CKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SWR 
(3) 017226 015702 $RDCHR 3 CALL =RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
(3) 017230 016022 $RDLIN ;;CALL=RDLIN TRAP*+11(104411) TTY TYPEIN STRING ROUTINE 
1636 017232 005015 046103 041517 EMI: -ASCIZ <15><12>/CLOCK SR FUNCTION ERROR/ 
C172460 020113 051123 043040 
017246 047125 052103 047511 
017254 020116 051105 047522 
_ 017262 22 ! a 
1637 017264 005015 046103 041517 EM2: eASCIZ <15><12>/CLOCK SR DATA ERROR/ 


017272 020113 051123 042040 
017300 bz Fees dps 051105 


017306 2 
1638 017312 005015 046103 041517 EM3: eASCIZ <15><12>/CLOCK BR DATA ERROR/ 
017320 020113 051102 042040 
017326 052101 020101 051105 
7522 000122 


017334 04 12 

1639 017340 044600 052116 051105 EM: eASCIZ <200>/ INTERRUPT ERROR/ 
017346 052522 0&2120 042440 - 
077354 051122 051117 000 . 

1640 017361 015 041412 052517 EMS: eASCIZ <15><12>/COUNT REG. ERROR/ 
017 052116 051040 043505 ; 
017374 020056 051105 047522 
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017402 


017554 
017555 
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— — 
rO=u 
=353 

WIN 


NN 
== 
MW—WWR Of 


RRL BF 
BaaSMae 


051501 


001376 


000090 
001400 
000000 
017146 


051411 


051122: 


051102 
051411 


050122 


000 
051122 
051123 


050122 


051122 
047514 
042104 


001126 
001126 
017150 


TR 
—M11: 


EM12: 


EM16: 


EM20: 


EM26: 
DH1: 
DH3: 


DHA: 


DHi2: 


DH20: 


DH26: 


DTI: 
DT3: 
DT4: 


ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


eASCI2 


eASCIZ 


eAS°12 


eASCIZ 


eASCIZ 


eASCIZ 


— ASCIZ 
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AP TABLE 


<15><12>COUNT ERROR # 


<15><12>COUNT FUNCTION ERRORS 


<15><12>@CLOCK INTERRUPT ERROR # 


<15><12>#REPEATABILITY ERROR # 


<15><12>MADDRESSING ERROR# 


<15><12>MERRPC ASR WAS S/BA 
<15><12>MERRPC ABR WAS S/Ba 
<200>4ERRPC 10 FROM ADDR.& 
<15><12>MERRPC ASR a 

1STNCT 


<15><12>MERRPC ASR NDCNT 


<15><12>MERRPC CLOCK ADDR.& 


SERRPC ASR, SBDDAT ,$GDDAT ,0 
SERRPC ,ABR ,SBDDAT ,SGDDAT ,0 
SERRPC, TRTO, TRFRO,O 


3RDCNT4# 


SEQ 0098 
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CVKWAC P17 08-AUG-79 10:45 TRAP TABLE SEQ 0099 

020016 000000 

1659 020020 001116 001376 000000 DI12: .WORD S$ERRPC,ASR,0 

1660 020026 001116 001376 001126 DT20: .WORD SERRPC,ASR,SBDDAT .SGDDAT,STMPO,0 
020034 001124 001420 000000 ' 

1661 020062 001116 001376 001126 DI22: .wORD SERRPC,ASR,$SBDDAT,$TMPO,0 
020050 001420 

1662 0200546 001116 001420 000000 DT26: .wORD SERRPC,$TMPO,0 


: 
: 
: 


DFO: -WORD 0,0 
1666 000001 «END 
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ABASE = 170420 1024 112 
ABR 001400 1908 256* 
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1321 
195 
15654 
256 

407* 


522s 
649« 


1220 


14174 


385* 


12418 


342* 
432* 


580* . 


656* 


343% 
434* 
581* 
668* 


463* 

744% 
1071 
1261 


471 

806* 
1082* 
1287* 


489* 


1292 


497 

810* 
11720 
1304 


1318* 


348* 
467* 
616* 


v 


563 

814* 
11748 
1323 


349+ 
471* 
625* 
7228 


SEQ 0100 


626* 


1462* 
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CVKWAC P11 08-AUG-79 10:45 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0101 
728% 732 743* 745* 747* 749 756* 806* 808* 810* 812* 814* 816* 
821* 824" 826* 832* 834 842* 847* 849* 854 880* 883* * 895* 
1* 903* 904* 914* 1002* 003* 1004* 1005* 1007 1010 1020* 1022* 1028 


1304* 1317" 1319" 1323 1333 

1489" 1491 1492 1495  1530« 1532 36 «1656 = «1659 = «1660-~—Ss«*1661 

ASWREG= 000000 112 

ATESTN= 000000 112 

AUNIT = 000000 112 

AUSWR = 000000 112 

AVECT1= 000440 103 0-112,‘ 192 193 «‘19% 

AVECT2= 000000 112 

BITO = 000001 100# 351 “7 aT 3: or 67 69 68 of 726 023732 
749 806 —_-80 810 81 814 816 824 2 31017. «=: 1040:1044 
1046 10671071, 1084 109311721975 117611761177 122012611282 

BITOO = 9000? 100# 607 

BITO1 = 000002 100# 

BITO2 = 000004 100# 

BITO2 = 000010 100# 

BITO4 = 000020 100# 

BITOS = 000040 100# 

BIT06 = 000100 100# 

BITO7 = 000200 100# 

BITO8 = 000400 1004 1562 

BITO9 = 001000 100# 1560 1562 

BIT? = 000002 100 ©6350 «= 660 

BIT10 = 002000 100# 540 575 1087 1172 1173 1174 1176 1177 1205 1265 1560 

BIT11 = 100# = 344.2 71 49 40 $75 30-66 808 810 812 814 
816 B32: 1066.-~—S ss 1071.—S-s«*1083-—Ss«d1098-)—S1172,S 11781174 176—S«1177, Ss 1220S «1261 
1292 1304 1323 1562 

BIT12 = 010000 100# 540 575 816 1007 1011 1028 1052 1536 

BIT13 = 020000 100# 343 «= 605-—s«1560 

BIT14 = 040000 100# 342 «= 903-—Ss«21562 

BIT15 = 100000 100# 1011 

BiT2 = 000004 100# 349° G71 497 594 630 668 806 08 10 12 816 816 
832-1071 «= «1098S s1172,—S's«1178-—S 117411761177, 12201261 Ss «12921304 1323 

BIT3 = 000010 100# & 7 ~—- 1084 

BIT4 = 000020 100# 347 627 654 69% 726 

BITS = 000040 100# 346 627 654 690 6% 726 

BIT6 = 000100 100# 345 

BIT? = 000200 100# 

BIT8 = 000400 100# 628 656 698 728 747 826 884 1492 1531 

BIT9 = 001000 100# = 471 497 581 606 630 668 80 08 810 812 814 816 
B32 904-1004 ~=S 1005-1041 1042S s«sd10077,—~'(i«<20093Ss98721978—S 1174176277 
1209 1220 1249S «1261S «1292,—Ss«1304= «1323. 1464S :1466 

BPTVEC= 000014 100# 

CKSWR = 104407 1460. 1488 + «©1529-1560 = «(1562—Ss«(16 35M 

CR = 000015 100# 1564 

CRLF_ = 000200 100# 234 1564 

DDISP = 177570 100# = 112,225 

DFO ©: 020062 124 131 135 145 a, a a, 

DH —«-017555 122 129 150 178 16478 

DH12 017661 157 ‘164 —s«16 50 
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SE NON J 
ate 


1560* 1562* 


594 660 
575* 


225 
+51 16564 
16594 


FINBUS IFS 
z= 


— SS ss Ss FS SS SS Ss SS SS SS 2-H -- 4 4 SS ——s Ys -— 


DWNVAVUNNMO LW 
a ae 


13464 
295* 1359 1360* 1375* 1380* 1562* 


236 538 573 592 658 685 707 
1302 1320 1369 1371 1373 1385 . 1387 


1528 





m 
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KWV11A DISAGNOSTIC MAINDEC 
CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0103 


E 
CVKWAC.P11 08-AUG-79 10: 
PRS 
PR6 


= 
we 


SSS S89 


Re 


244 1355* 1367 1396* 1560 


-—o 


=—nn- Aw SS 
_—— 


SSSBLEFE 


1560 1562 1563* 


SSSSSSS SESE ey 


SSSSSSSSeess 


225* 
16344 1658 
1588* 1590 16334 1658 


215* 218* 222* 1353 
2144 


9s 
~voo 
* % 


_~— 


1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 
5 
} 


WWM MY 
000 
Row 

= = 


w 
S Ww 
feae 
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CVKWAC P11 08-AUG-79 10:4 
TST13 §©—.00 3536 3504 
TST14 0036 3518 
TST1S 003732 3854 
TST16 00402 3878 
TST17 = 004112 4044 
TST2 002514 2954 
TST20 004164 4304 
TST21 004246 4604 
TST22 004374 4864 
TST23 004522 5194 
TST24 004610 536 
TST25 004662 574 
TST26 004732 591 
TST27 004766 6234 
TST3 002556 3428 
TST30 005076 6474 
TST31 5 666 
TST32 005422 706 
TST33 5 7414 
TST34 005532 8 
TST35 005662 8084 
TST36 = 006012 8104 
TST37 ©6006 142 8124 
TST4 002654 3434 
TST40 006272 8144 
TST41 006422 8164 
TST42 006562 816 
TST43 = 006724 8454 
TST44 006764 8764 
TST45 =—0071 8974 
TST46 = =©007210 10004 
TST47 007264 10184 
TSTS 002752 3444 
TSTSO §=©007350 10384 
TSTS1 = 007442 10604 
TSTS2 007576 10794 
TST53 7730 11724 
TSTS4 =—010222 11734 
TST55 =©010514 11744 
TST5S6 11006 11764 
TST57 =©6.011300 11774 
TST6 003050 3454 
TST60 §=011612 11984 
TST61 012 12384 
TST62 =012220 1258 
TST63 =©012620 1299 
TST7 003146 3464 
TYPBN = 104405 1410 
TYPE = 104401 234 
1546 
TYPOC = 104402 1370 
TYPON = 104404 16354 
TYPOS = 104403 16354 
UTEST 001430 2024 
VECT 001404 1924 
VECT1 001402 1914 


CROSS REFERENCE TABLE == USER SYMBOLS 


539 542 5564 
5784 
593 595 6034 


6834 
708 711 7204 


8194 

1268 1272 12784 

1305 13124 

16354 

238 239 1302 1320 1369 ~~ «1371 1373 


1289 
1547 1560 1561 1563 1564 1566 16354 
1410 1561 1563 16354 


244* 1367* 1410 1560* 
231* 247* 248 250 885* 1376* 1390* 


1385 


1387 


1410 


SEG 0104 


1418 


8 . 
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CVKWAC.P11 © 08-AUG-79 10 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0105 
VECT2 001406 1934 250* 2518 252 902* 
VECT2P 001410 1944 252* 253* 
WSTART= 001472 93 21784 
ZSTART 001774 224 2284 
THD 001 1114 
SASTAT= stenee U 1565 
SATYC 016502 15654 
SATY1 016456 1565a 
SATY3 016464 1564 15654 
SATYS 016474 1560 15654 
001134 1124 234% 1563 
$BASE 001250 11o@ = 232,—Ss«1389 
$BDADR 001122 112" 
SBDDAT 001126 1128 342* 343* 344% 345* 346* 347* 348* 349* 350* 351* 385* 387* 
412 414 417 446% 447 449 471* 473 497* 99 526* 563* 630 


4 
668* 670 806* 80E* 810* 812* 814* 816" 832* 1010* 1031* 1049* 1052 
1071* 1093* 11728 11738 1174" 1176* 11778 1211* 1212 1220* 1221 1251* 1252 
1261* 1271* 1292" 1304* 1323* 1656 1657 1660 1661 


S$BELL 11 112" 1560 
$BIN 014572 15478 
$CDW1 001254 1128 
SCHARC 016452 15644" 
SCKSWR 015420 156 635 
SCMTAG 0011 1128 2 
$CM3 = 1128 
SCNTLG 016145 15634 
SCNTLU 016140 15634 
SCPUOP 0012 1124 
SCRLF 001171 112" 1560 1561 1563 1564 
SDEVCT 001204 112" 229% 1370 = 1372 »=—«1374.—S 1381S: 1386)=— «1397 1393s 
vA 001252 1128 
SDOAGN 013730 1410# 
SENDAD 013720 109 1410" 
SENDCT 1410# 
SENULL 013734 14104 
SENV. 001214 112" 92 1560 1564 1565 
SENVM 001215 112" 225-1349 «1564 «1565 
013432 14104 
SEOPCT 013460 14104 
SERFLG 001103 1124 1560" 1562 
SERMAX 001115 112# 225 = 15628 
RROR 014574 225. = 1560# 
SERRPC 001116 112" 1560* 1561 1656 1657 1658 1659 1660 1661 1662 
SERRTB 001256 112" ©1561 
SERRTY 015002 1560 15614 | 
SERTTL 001112 112" 1560s 
SESCAP 001162 112# 225" 1560 1562 
SETABL 001214 1128 
SETEND 001256 111 1128 
SFATAL 001176 112" 1565* 
SFFLG 016722 15654 
SFILLC 001156 1124 1564 
SFILLS 001155 1124 1564 
$GDADR 001120 112# 
SGDDAT 001124 112 342% B43 Gh = 8G45% 3468 = B47*# = -34B® «= 349% = 3508 = 351# — -3BS* (RBZ 
414* 4158 = 4a7*®—44Be = 469% = 478 495* 499 521* 558* 651" 669% 670 


C . 
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CVKWAC P11 08-AUG-79 10:45 CROSS REFERENCE TABLE == USER SEQ 0106 


678 679 837" 1101i* 1032 1051* 1064" 11728 1173* 1176e 1176¢ 11778 8 12100 
1212 1221 1250* 1252 1260* 1273* 1291" 1322* 1656 1657 1660 
$GET42 013710 14108 
SGTSWR 015470 15634 1635 
= 000001 54 
SHIBTS 001000 1114 
SICNT 001104 1124 1562* 
SILLUP 017064 15664 : 
SINTAG 001135 1124 1563 
SITEMB 001114 1124 1560* 1561 
F 001172 1124 1560 1563 1564 
SLFLG 016721 15654 
SLPADR 001106 1124 225* 294" 15€2* 
SLPERR 001110 1128 225* 294* 652* 1560 1562* 
SMADR1 1226 1124 
SMADR2 001232 1124 
SMADR3 1128 
SMADRS 001242 1128 
SMAIL 001174 111 1124 225 234 1560 1562 1564 
SMAMS1 001224 1124 
SMAMS2 001250 1124 
SMAMS3 001234 1124 
SMAMSS 001240 1124 
SMBADR 001002 1114 
SMFLG 016720 15654* 
SMNEW 016163 15634 
SMSGAD 001210 1124 1565* 
SMSGLG 001212 1124 1565* 
SMSGTY 001174 1124 1565* 
016152 15634 
SMTYP1 001225 1124 
SMTYP2 001231 1124 
SMTYP3S 001235 1124 
SMTYP4 001241 1124 
SMXCNT 015416 15624 
L 001154 1124 1564 
SNWTST= 00000 2944 2954 3424 3434 3444 3454 3464 3478 3484 3494 3504 3514 3854 
3874 4044 4304 4604 4864 5194 5564 5784 60 6234 6474 7204 


3a 6834 
7414 8064 8084 8104 8124 8144 8164 8194 8454 8764 8974 10004 10184 
10384 10604 1079 11724 $1173 1174 11764 +1177 11984 12384 12784 = 1 


SOMODE 014516 15464* 

SOVER 015402 15624 

SPASS 001202 1124 2c5* 242* 1365 1410* 1562 
SPASTM 001006 1114 

SPOWER 017072 15664 

SPWRDN 016724 225 15664 

SPWRMG 7 15664 

SPWRUP 016776 15664 

SQUES 001170 1124 1560 1563 1564 
SRDCHR 015702 15634 1635 

SRDDEC= **ee8* UJ 1635 

SRDLIN 016022 15634 1635 

SRDOCT= *eee0% (J 1635 

$RDSZ = 000010 15634 

SRTINAD 013732 1410 
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CVKWAC .P11 08-AUG-79 10:45 CROSS REFERENCE TABLE == USER SEQ 0107 

GR2A = wxeeere 1635 

SSAVRE= seeeee 1635 

SSAVR6 017070 15664* 

SSCOPE 015136 225 15624 

$SE TUP= 117 2104 225 234 1410 1560 1562 1563 

SSTUP = 177777 2104 

SSVLAD 015346 15624 

SSVPC = 244 1094 

SSWR = 167400 94 54 56 1064 112 225 294 295 342 343 344 345 346 
347 348 349 350 351 385 387 404 430 460 486 519 556 
578 603 623 647 683 720 741 806 808 810 812 14 816 
819 845 876 897 1000 107 1038 1060 1079 117 117 1174 1176 
1177 1198 1238 1278 1312 1410 1560 1562 1566 

SSWREG 001216 1124 225 

= 56 1562 

STESTN 001200 1124 1562* 

STIMES 001160 1128 225% = 294" 342s 3 344s 345% 346% «= 347" «= 54B*# = 349" «= 3508 = 3578 
404* 430* 460% 486% 519% 556% 6478 * * B10" 812% 814« 16* 
tide (Soke 1018* 1060* 1172* 1173* 1174* 1176* 1177* 1198* 1238* 1280* 1312s 

* . 

$TKB 001146 1124 1417 1422 1563 

$TKS 001144 1124 1420 1563* 

STMPO 001420 984 211* 224* 226 294% 295* 1172* 1173* 1174* 1176* 1177* 1458* 1486* 
1527* 1661 1662 

STMP1 001422 1994 . 

STMP3 001424 2004 471* 497* 630* 668* 806* 808* 810* 812* 814" 816* 832* 1071* 
1093* 11728 11738 1174*% 1176* 1177% 1220* 1261* 12928 1304* 1323* 

STN = 000064 4a 1074 2944 2954 3424 3434 3444 3454 3464 3474 3494 3504 
3514 3854 3874 4044 4304 4604 4864 5194 536 539 542 5564 574 
5784 591 593 595 6034 6234 6474 666 6834 08 711 7204 
7414 8064 80 8124 8144 8164 8194 8454 87 8974 000 10184 
10384 10604 10794 11724 11734 11744 11764 11774 11984 12384 1258 1268 1272 
12784 1299 1305 13124 

$ 001152 1124 1564 

STPFLG 001157 1124 1564 

STPS 001150 1124 1564 

STRAP 017152 225 16354 

STRAP2 017174 16354 

$STRP = 2 16354 

STRPAD 017206 16354 

STSTM 001 1114 

STSTNM 001102 1124 294% 1410* 1560 1562* 

STTYIN 016130 15634 

STYPBN 014520 15474 1635 

STYPDS= s*eee8 UJ 1635 

STYPE 016174 15644 1565 1635 

STYPEC 016406 1563 15644 

STYPEX 016454 15644 

STYPOC 014316 15464 1635 

STYPON 014332 15464 1635 

$TYPOS 014272 15464 1635 

001206 1124 

SUNITM 001010 1114 

SUSWR 001220 1124 

$VECT1 001244 112 231 1390 

SVECT2 001246 1128 


a - 
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0 ! 
SxTSTR 015152 15624 
SGE T4= 1410 
SOFILL 014515 15464* 
SGOCAT= seeeee 1560 1562 
* = 020066 604 71 72a 754 77a 807 85 92a 944 109" 110a 111# 1128 


a 
217 221 225 2384 1289 1302 13208 1369 13858 1410# 14184 1560 15614 
1562 15634 1564 15654 1566 16544 

BASTA> weneee (| 1565 - 

-$x == 001000 111 


e ° 
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CVKWAC P11 CROSS REFERENCE TABLE -=- MACRO NAME 


284 


-— 
NAW NW 
SRBEE IE 


3 


WMO NWP? en PO HS ows ee 
Ww 
Ww 
= 


RBSENEE 


3 


—-2 
ao 
f 


an 
Ww 
Ww 
z 


— 
AMoIO@OOfW-— 
—a yh re ss 
OUINWOAWYNS 


2 2 
SNS 


@rONIWG 


385 


806 
1172 





SEQ 0109 


387 
808 
1173 


1172 


1174 
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CVKWAC P11 08=AUG-79 16:45 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0170 
TYPBIN 100# 1410 

TYPDEC 100 

TYPNAM 100 234 

TYPNUM —- 1004 

TYPOCS 64 1008 
TYPOCT  100@ 1370 1376 1386 1410 1561 1563 
TYPTXT 100# 238 339 «1289—S's—«a13022~Sté<‘z820)2~”S=s186902~——s«1377 1372 1385 1387 1410 1618 
ZIOT™ 14624f 1648 1676 | 
2P21 3 404 430 

7P25 Sil#@=—s«$19 | 
7P25A 547" 8©=—s- 556 : | 
771 2 343 344 345 346 347 348 349 350 351 638" = 647 8064 8084 


2964 34 
8104 8128 8144 8168 11798 1198 10304 8=61238 


SSCMT™M 1124 . 
SSESCA 1 
SSNEWT 1004 294 295 342 344 345 346 347 348 349 350 351 385 387 


$$SET 16354 
SSSETM 225a 
$$SKIP 1004 536 539 542 ‘576 591 593 595 666 706 708 711 816 1258 1268 


~EQUAT 100 
. HEADE Sa 54 
-SETTR Sa 
. SETUP Sa 210 
. SWRH] 5 
SWRLO 564 
TRMTR Sa 
-$ACT1 109 
.SAPTB 1124 
. SAPTH 117 
. SAPTY 8H 1565 
SCATC 64 
SCMTA 6f# ~=—112 
oP 7# §=1410 
$ERRO 7# 1560 
SERRT 7# 1561 
64 1566 
$RDOC Sa 
SREAD 7# 1563 
$SCOP 7# 1562 
STRAP Sa §=61635 
$TYPB 5a 1547 
$TYPD 74 
.STYPE 74 1564 
STYPO 64 1546 


ERRORS DETECTED: OC 
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CVKWAC P11 08-AUG-79 10:45. 


CVKWAC , CVKWAC / CRF =CVKWAC 
RUN-TIME: 28 17 1 SECONDS 
RUN-TIME RATIO: 78/47=1.6 
CORE USED: 27k (53 PAGES) 


